Alternative way to extract sample frequency from .wav file

[vincentvanhees]

Expand readWav() header extraction of the .wav file:

H = tuneR::readWave(datafile,from = 1, to = 10,units = c("seconds"), header = TRUE)
sf = H$sample.rate

Next, add this sf as an extra element to the header output.