Nothing
test_that("set_textgrid_names", {
file1 <- system.file("extdata", "test.TextGrid", package = "phonfieldwork")
file2 <- readLines(file1)
expect_equal(
set_textgrid_names(file1,
tiers = 3,
names = "new_name", write = FALSE
)[63],
' name = "new_name"'
)
expect_equal(
set_textgrid_names(file2,
tiers = 3,
names = "new_name", write = FALSE
)[63],
' name = "new_name"'
)
})
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.