Nothing
test_that("extract_intervals", {
tdir <- tempdir()
file.copy(system.file("extdata", "test.wav", package = "phonfieldwork"), tdir)
extract_intervals(
file_name = paste0(tdir, "/test.wav"),
textgrid = system.file("extdata", "test.TextGrid",
package = "phonfieldwork"
),
path = tdir
)
expect_true("2_e.wav" %in% list.files(tdir))
rm(tdir)
})
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.