{
#load data and save to temporary working directory
data(list = c("Phae.long1", "Phae.long2", "Phae.long3"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
writeWave(Phae.long3, file.path(tempdir(), "Phae.long3.wav"))
#split files in 1 s files
split_sound_files(sgmt.dur = 1, path = tempdir())
# Check this folder
tempdir()
}
Run the code above in your browser using DataLab