test_that("is_valid_path_file() works", {
f <- fakin.path.app:::is_valid_path_file
expect_error(f())
f(structure(
list(paths = TRUE, forbidden = TRUE),
file = "my-file",
first_rows = c("row-1", "row-2")
))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.