# segmenteerimata põhjatuuled autosegmenteerijale

txt = "pohjatuul_ja_paike_tekst.txt"
for(f in dir(pattern = "wav")){
  tg = gsub("wav$", "TextGrid", f)
  kasOnTG = file.exists(tg)
  if(!kasOnTG){
    kasurida = paste0("curl --fail --insecure  -F \"wav=@", f, "\" -F \"txt=@", txt, "\" https://bark.phon.ioc.ee/autosegment2/run > \"", tg, "\"")
    system(kasurida)
  }
}

# kontrollib, kas TextGrid on loetav ja kui ei ole, saadab uuesti segmenteerimisele
for(f in dir(pattern = ".TextGrid")){
  tg = f
  kasOnTG = scan(tg, what = character(), sep = "\n", quiet = T)[1]
  if(is.na(kasOnTG) | kasOnTG != "File type = \"ooTextFile\""){
    wav = gsub("TextGrid$", "wav", tg)
    #txt = gsub("TextGrid$", "txt", tg)
    kasurida = paste0("curl --fail --insecure  -F \"wav=@", wav, "\" -F \"txt=@", txt, "\" https://bark.phon.ioc.ee/autosegment2/run > \"", tg, "\"")
    system(kasurida)
  }
}