Nothing
test_that("tools file_ext", {
expect_identical(tools::file_ext("pdf"), "")
expect_identical(tools::file_ext(".pdf"), "pdf")
expect_identical(tools::file_ext("file.pdf"), "pdf")
expect_identical(
tools::file_ext(c("pdf", ".pdf", "file.pdf")),
c("", "pdf", "pdf")
)
})
test_that("tools file_path_sans_ext", {
expect_identical(tools::file_path_sans_ext("pdf"), "pdf")
expect_identical(tools::file_path_sans_ext(".pdf"), ".pdf")
expect_identical(tools::file_path_sans_ext("file.pdf"), "file")
expect_identical(
tools::file_path_sans_ext(c("pdf", ".pdf", "file.pdf")),
c("pdf", ".pdf", "file")
)
})
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.