## Commenting out - works with test() but not build().
## test_that("create_data() works", {
## x <- 1:10
## year <- 2048
## expect_invisible(create_data(paste0("test_file_",
## year),
## x))
## file.remove(list = paste0(here::here(),
## "/data/test_file_",
## year,
## ".rda"))
## })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.