Nothing
test_that(".tagSlots returns correct format", {
expect_equal(typeof(.tagSlots()), "list")
})
test_that("attempt to convert non-Wave like object throws error", {
expect_error(tagWave(1), "Attempting to tag object that is not of type Wave or WaveMC.")
})
test_that("converting Wave to TaggedWave works", {
w <- tuneR::sine(440, duration=44100, samp.rate=44100)
tw <- tagWave(w)
expect_true(inherits(tw, "Wave"))
expect_true(is(tw, "TaggedWave"))
expect_false(inherits(tw, "WaveMC"))
# Check converting already tagged
tw <- tagWave(tw)
expect_true(inherits(tw, "Wave"))
expect_true(is(tw, "TaggedWave"))
expect_false(inherits(tw, "WaveMC"))
utw <- untagWave(tw)
expect_true(inherits(utw, "Wave"))
expect_false(is(utw, "TaggedWave"))
expect_false(inherits(utw, "TaggedWave"))
expect_equal(w@left, utw@left)
})
test_that("converting WaveMC to TaggedWaveMC works", {
x <- seq(0, 2*pi, length = 44100)
channel <- round(32000 * sin(440 * x))
w <- tuneR::WaveMC(data = channel, samp.rate = 44100, bit = 16)
tw <- tagWave(w)
expect_true(inherits(tw, "WaveMC"))
expect_true(is(tw, "TaggedWaveMC"))
expect_false(inherits(tw, "Wave"))
# Check converting already tagged
tw <- tagWave(tw)
expect_true(inherits(tw, "WaveMC"))
expect_true(is(tw, "TaggedWaveMC"))
expect_false(inherits(tw, "Wave"))
utw <- untagWave(tw)
expect_true(inherits(utw, "WaveMC"))
expect_false(is(utw, "TaggedWaveMC"))
expect_false(inherits(utw, "TaggedWaveMC"))
expect_equal(dim(w@`.Data`), dim(utw@`.Data`))
expect_equal(w@`.Data`, utw@`.Data`)
utw <- untagWave(tw)
expect_true(inherits(utw, "WaveMC"))
expect_false(is(utw, "TaggedWaveMC"))
expect_false(inherits(utw, "TaggedWaveMC"))
expect_equal(dim(w@`.Data`), dim(utw@`.Data`))
expect_equal(w@`.Data`, utw@`.Data`)
})
test_that("setting origin works", {
w <- tuneR::sine(440, duration=44100, samp.rate=44100)
tw <- tagWave(w)
expect_equal(tw@origin, "user")
tw <- tagWave(w, origin="test")
expect_equal(tw@origin, "test")
})
test_that("list of waves works", {
waves <- list(
tuneR::silence(duration=44100, samp.rate=44100),
tuneR::noise(kind="white", duration=44100, samp.rate=44100),
tuneR::sine(440, duration=44100, samp.rate=44100)
)
tws <- tagWave(waves)
expect_true(all(sapply(tws, inherits, what=c("TaggedWave"))))
expect_equal(length(tws), length(waves))
utws <- untagWave(tws)
expect_true(all(sapply(utws, is, "Wave")))
expect_equal(length(utws), length(waves))
waves <- list(
tuneR::silence(duration=44100, samp.rate=44100),
14,
tuneR::sine(440, duration=44100, samp.rate=44100)
)
expect_error(tagWave(waves), "All items in list must be Wave or WaveMC objects.")
})
test_that("addProcess works as expected", {
w <- tuneR::sine(440, duration=44100, samp.rate=44100)
tw <- tagWave(w)
tw <- addProcess(tw, "Aslan")
tw <- addProcess(tw, "AsCran", "the pedantic lion")
expect_equal(typeof(tw@processing), "list")
expect_equal(tw@processing[[1]], list(list("process" = "Aslan", "output" = NULL)))
expect_equal(tw@processing[[2]], list("process" = "AsCran", "output" = "the pedantic lion"))
})
test_that(".isTagged() works as expected", {
w <- tuneR::sine(440, duration=44100, samp.rate=44100)
tw <- tagWave(w)
expect_true(.isTagged(tw))
expect_false(.isTagged(w))
expect_error(.isTagged(1), "Attempting to check object that is not Wave like.")
})
test_that(".getTags() works as expected", {
w <- tuneR::sine(440, duration=44100, samp.rate=44100)
tw <- tagWave(w)
expect_equal(typeof(.getTags(tw)), "list")
expect_true(all(names(.getTags(tw)[[1]]) == names(.tagSlots())))
expect_error(.getTags(w), "Attempting to get tags from object that is not TaggedWave or TaggedWaveMC.")
expect_error(.getTags(1), "Attempting to get tags from object that is not TaggedWave or TaggedWaveMC.")
tw <- list(tw, tw)
expect_equal(typeof(.getTags(tw)), "list")
expect_true(all(names(.getTags(tw)[[1]]) == names(.tagSlots())))
expect_true(all(names(.getTags(tw)[[2]]) == names(.tagSlots())))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.