Pad Wave Objects
pad_wav(wav, duration = NULL)
wav | list of Wave objects |
---|---|
duration | If |
A list of Wave objects, same length as input wav
wavs = list( tuneR::noise(duration = 1.85*44100), tuneR::noise()) out = pad_wav(wavs) dur = sapply(out, function(x)length(x@left)/ x@samp.rate) duration = c(2, 2) out = pad_wav(wavs, duration = duration) dur = sapply(out, function(x)length(x@left)/ x@samp.rate) stopifnot(all(dur == duration)) duration = c(2, 2.5) out = pad_wav(wavs, duration = duration) dur = sapply(out, function(x)length(x@left)/ x@samp.rate) stopifnot(isTRUE(all.equal(dur, duration)))