tjm.praat: Miscellaneous 'Praat' Scripts

# I want to reuse procedure definitions across files. So, the .txt files in
# data-raw/snips/ are Praat scripts written with glue {placeholders}. These are
# filled in when this script is run. The full, un-templated scripts are saved
# into data-raw.

library(magrittr)

read_praat_script <- function(x) {
  x %>%
    readLines() %>%
    glue::glue_collapse("\n") %>%
    glue::as_glue()
}

# Reuse code by using {templates} and filling the templates using glue
snips <- list.files("data-raw/snips/", full.names = TRUE)

snips_list <- snips %>%
  lapply(read_praat_script) %>%
  setNames(tools::file_path_sans_ext(basename(snips)))



# Write out untransformed scripts
create_silences_textgrid <- snips_list$`create-silences-textgrid` %T>%
  writeLines("data-raw/generated-scripts/create-silences-textgrid.praat")

create_spectrogram <- snips_list$`create-spectrogram` %T>%
  writeLines("data-raw/generated-scripts/create-silences-textgrid.praat")


# Fill in placeholder code in the snips
merge_duplicate_intervals <- snips_list$`merge-duplicate-intervals` %>%
  glue::glue_data(snips_list, .) %T>%
  writeLines("data-raw/generated-scripts/merge-duplicate-intervals.praat")

duplicate_tier <- snips_list$`duplicate-tier` %>%
  glue::glue_data(snips_list, .) %T>%
  writeLines("data-raw/generated-scripts/duplicate-tier.praat")

convert_tier_to_silences <- snips_list$`convert-tier-to-silences` %>%
  glue::glue_data(snips_list, .) %T>%
  writeLines("data-raw/generated-scripts/convert_tier_to_silences.praat")

bind_tiers <- snips_list$`bind-tiers` %>%
  glue::glue_data(snips_list, .) %T>%
  writeLines("data-raw/generated-scripts/bind-tiers.praat")



usethis::use_data(create_silences_textgrid, overwrite = TRUE)
usethis::use_data(merge_duplicate_intervals, overwrite = TRUE)
usethis::use_data(duplicate_tier, overwrite = TRUE)
usethis::use_data(convert_tier_to_silences, overwrite = TRUE)
usethis::use_data(bind_tiers, overwrite = TRUE)
usethis::use_data(create_spectrogram, overwrite = TRUE)