# NOT RUN {
{
# write wave files with lower case file extension
data(list = c("Phae.long1"))
writeWave(Phae.long1, file.path(tempdir(), "Phae.long1.wav"))
# read from selection table
read_wave(X = lbh_selec_table, index = 1, path = tempdir())
# from extended selection table
library(NatureSounds)
read_wave(X = lbh.est, index = 1)
# read WAV
filepath <- system.file("extdata", "recording.wav", package = "bioacoustics")
read_wave(filepath)
# read MP3
filepath <- system.file("extdata", "recording.mp3", package = "bioacoustics")
read_wave(filepath)
# URL file
read_wave(X = 'https://www.xeno-canto.org/513948/download')
}
# }
Run the code above in your browser using DataLab