Skip to contents

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.

Usage

concatenate_textgrids(path, result_file_name = "concatenated")

Arguments

path

path to the directory with soundfiles.

result_file_name

name of the result and annotation files.

Value

no output

Author

George Moroz <agricolamz@gmail.com>

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-0d0ca9323b2066622661ec758fe71f22"
#> [2] "concatenated.TextGrid"                 
#> [3] "concatenated.wav"                      
#> [4] "downlit"                               
#> [5] "file87e7ff6caa7"                       
#> [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-0d0ca9323b2066622661ec758fe71f22"
#> [2] "concatenated.TextGrid"                 
#> [3] "concatenated.wav"                      
#> [4] "downlit"                               
#> [5] "file87e7ff6caa7"                       
#> [6] "post.TextGrid"                         
#> [7] "post.wav"                              
#> [8] "test.TextGrid"                         
#> [9] "test.wav"                              
# [1] "concatenated.TextGrid" "post.TextGrid" "test.TextGrid" ...