Nothing
test_that("new_nm", {
exdir <- system.file("extdata", "examples", "theopp", package = "NMproject")
m1 <- new_nm(run_id = "m1",
based_on = file.path(exdir, "Models", "ADVAN2.mod"),
data_path = file.path(exdir, "SourceData", "THEOPP.csv"))
expect_error(
m1 <- new_nm(run_id = "m1",
based_on = "Models/ADVAN2.mod",
data_path = file.path(exdir, "SourceData", "THEOPP.csv"))
)
})
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.