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"))
catalog(X = lbh_selec_table, nrow = 2, ncol = 4)
# now create single pdf removing jpeg
catalog2pdf(keep.img = FALSE, path = tempdir())
# check this floder
tempdir()
}
Run the code above in your browser using DataLab