Nothing
context("Tutorial data existence")
options <- get_options()
test_that("Zonation tutorial data is available", {
expect_true(file.exists(options$tutorial.dir),
"Tutorial directory not found in root of the package.")
expect_true(file.exists(options$setup.dir),
"Input setup directory not found in the tutorial folder.")
expect_true(file.exists(options$bat.file),
"Tutorial batch file not found in the tutorial folder.")
expect_true(file.exists(options$dat.file),
"Tutorial dat file not found in the tutorial input folder.")
expect_true(file.exists(options$spp.file),
"Tutorial spp file not found in the tutorial input folder.")
expect_true(file.exists(options$groups.file),
"Tutorial groups file not found in the tutorial input folder.")
expect_true(file.exists(options$condition.file),
"Tutorial condition file not found in the tutorial input folder.")
})
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.