context("run example simulation")
test_that("running glm simulation", {
sim_folder <- system.file('extdata', package = 'GLMr')
status = run_glm(sim_folder)
expect_equivalent(status, 0)
expect_true(file.exists(file.path(sim_folder, 'output.nc')))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.