context("test-get_data_paths")
test_that("use", {
all_paths <- get_data_paths(raztr::get_raztr_path("razzo_project"))
expect_true(
length(all_paths) > 0
)
expect_true(
is.character(all_paths)
)
parameter_files <- file.path(all_paths, "parameters.RDa")
expect_true(all(file.exists(parameter_files)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.