Creates a merged sound file from old sound files in a folder. If the annotation argument is not equal to NULL, it creates an annotation file (Praat .TextGrid, ELAN .eaf or EXMARaLDA .exb) with original sound names annotation.
Arguments
- path
path to the directory with soundfiles.
- result_file_name
name of the result and annotation files.
Author
George Moroz <[email protected]>
Examples
# create two files in a temprary folder "test_folder"
t1 <- system.file("extdata", "test.TextGrid", package = "phonfieldwork")
t2 <- system.file("extdata", "post.TextGrid", package = "phonfieldwork")
tdir <- tempdir()
file.copy(c(t1, t2), tdir)
#> [1] TRUE TRUE
# here are two .wav files in a folder
list.files(tdir)
#> [1] "bslib-538bb7b64e219ec4feff25f96b644ba0"
#> [2] "concatenated.TextGrid"
#> [3] "concatenated.wav"
#> [4] "downlit"
#> [5] "file75f2e42b11a"
#> [6] "post.TextGrid"
#> [7] "post.wav"
#> [8] "test.TextGrid"
#> [9] "test.wav"
# [1] "post.TextGrid" "test.TextGrid" ...
# Concatenate all TextGrids from the folder into concatenated.TextGrid
concatenate_textgrids(path = tdir, result_file_name = "concatenated")
list.files(tdir)
#> [1] "bslib-538bb7b64e219ec4feff25f96b644ba0"
#> [2] "concatenated.TextGrid"
#> [3] "concatenated.wav"
#> [4] "downlit"
#> [5] "file75f2e42b11a"
#> [6] "post.TextGrid"
#> [7] "post.wav"
#> [8] "test.TextGrid"
#> [9] "test.wav"
# [1] "concatenated.TextGrid" "post.TextGrid" "test.TextGrid" ...