if (FALSE) {
# save sound file examples
data(list = c("Phae.long1", "Phae.long2"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
writeWave(Phae.long2, file.path(tempdir(), "Phae.long2.wav"))
full_spectrograms(sxrow = 2, rows = 8, pal = reverse.heat.colors, wl = 300,
it = "jpeg", path = tempdir())
#now create single pdf removing jpeg
full_spectrogram2pdf(keep.img = FALSE, path = tempdir())
# check this floder
tempdir()
}
Run the code above in your browser using DataLab