create_silences_textgrid: Create a silences textgrid

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

Create a silences textgrid

Description

Create a silences textgrid

Usage

create_silences_textgrid

Format

A Praat script

wav_file_in

path for the wave to read

textgrid_out

path of the textgrid file to create

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)
#> # A tibble: 13 x 10
#>    file       tier_num tier_name tier_type tier_xmin tier_xmax  xmin  xmax text 
#>    <chr>         <dbl> <chr>     <chr>         <dbl>     <dbl> <dbl> <dbl> <chr>
#>  1 the_B.Tex~        1 silences  Interval~         0      0.6  0     0.464 soun~
#>  2 the_B.Tex~        1 silences  Interval~         0      0.6  0.464 0.6   sile~
#>  3 the_D.Tex~        1 silences  Interval~         0      0.6  0     0.464 soun~
#>  4 the_D.Tex~        1 silences  Interval~         0      0.6  0.464 0.6   sile~
#>  5 the_V.Tex~        1 silences  Interval~         0      0.6  0     0.464 soun~
#>  6 the_V.Tex~        1 silences  Interval~         0      0.6  0.464 0.6   sile~
#>  7 tidyverse~        1 silences  Interval~         0      3.87 0     0.370 sile~
#>  8 tidyverse~        1 silences  Interval~         0      3.87 0.370 1.88  soun~
#>  9 tidyverse~        1 silences  Interval~         0      3.87 1.88  2.40  sile~
#> 10 tidyverse~        1 silences  Interval~         0      3.87 2.40  3.18  soun~
#> 11 tidyverse~        1 silences  Interval~         0      3.87 3.18  3.28  sile~
#> 12 tidyverse~        1 silences  Interval~         0      3.87 3.28  3.50  soun~
#> 13 tidyverse~        1 silences  Interval~         0      3.87 3.50  3.87  sile~
#> # i 1 more variable: annotation_num <int>

Praat source code

function (wav_file_in = NULL, textgrid_out = NULL)
# <wrapped_praat_script>
# returning: "last-argument"
form Make silence textgrid
    sentence Wav_file_in
    sentence Textgrid_out
endform
Read from file: wav_file_in$
To TextGrid (silences): 100, 0, -25, 0.1, 0.1, "silent", "sounding"
Save as text file: textgrid_out$

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