tests/testthat/test-get_envelopes.R

In maRce10/ohun: Optimizing Acoustic Signal Detection

data(lbh1, package = "ohun")
data(lbh2, package = "ohun")
#save sound files
tuneR::writeWave(lbh1, file.path(tempdir(),  "lbh1.wav"), extensible = FALSE)
tuneR::writeWave(lbh2, file.path(tempdir(),  "lbh2.wav"), extensible = FALSE)

test_that("default output", {
  envs <- get_envelopes(path = tempdir(), hop.size = 6.8)

  unlink(
    list.files(
      path = tempdir(),
      pattern = "\\.wav$|\\.flac$|\\.mp3$|\\.wac$",
      ignore.case = T,
      full.names = TRUE
    )
  )

  expect_type(envs, 'list')

  expect_length(envs, 3)

  expect_length(attributes(envs)$names, 3)
})