tests/testthat/test_wav2rda.R

In ThierryO/rhinolophus: Identify Bats from Ultrasound Recordings

context("wav2rda")
target.path <- tempdir()
source.path <- system.file("demo_wav", package = "rhinolophus")
to.copy <- list.files(source.path, pattern = "\\.wav$", full.names = TRUE)
file.copy(from = to.copy, to = target.path)
expect_warning(
  wav2rda(target.path, channel = "right"),
  ".*contains no information in the right channel"
)
wav2rda(target.path, te.factor = 10, channel = "left")
expect_identical(
  gsub("\\.wav$", "", list.files(target.path, pattern = "\\.wav$")),
  gsub("\\.rda$", "", list.files(target.path, pattern = "\\.rda$"))
)
file.remove(
  list.files(target.path, pattern = "\\.(wav|rda)$", full.names = TRUE)
)