Nothing
test_that("create_glossed_document", {
skip_on_cran()
file_name <- "additional_file/zilo_test.flextext"
tmp <- tempdir()
create_glossed_document(file_name, output_dir = tmp, output_format = "docx")
create_glossed_document(file_name, output_dir = tmp, output_format = "html")
create_glossed_document(flextext_to_df(file_name),
output_dir = tmp,
output_file = "glossed_document2",
output_format = "html"
)
test_that("create_glossed_document", {
expect_true(length(list.files(tmp, pattern = "html$|docx$")) == 3)
})
rm(tmp)
})
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.