In tjmahr/tjm.praat: Miscellaneous 'Praat' Scripts

Example usage

library(tjm.praat)
library(purrr)
library(readtextgrid)

# Locate some wav files
dir <- system.file("test-wavs-a/", package = "tjm.praat")
wavs <- list.files(dir, pattern = ".wav", full.names = TRUE)

# Put the resulting textgrids into a temporary folder
tgs <- file.path(tempdir(), basename(set_textgrid_ext(wavs)))

f_create_silences_textgrid <- wrap_praat_script(
  script_code_to_run = create_silences_textgrid,
  return = "last-argument"
)

# Apply the function to each wav file and read into R
map2_chr(wavs, tgs, f_create_silences_textgrid) %>%
  map_df(read_textgrid)

Praat source code

print(f_create_silences_textgrid, condense = FALSE)

tjmahr/tjm.praat documentation built on May 25, 2023, 5:41 p.m.