context("Run SSexecutivesummary on model output")
example_path <- system.file("extdata", package = "r4ss")
# create a temporary directory location to write files to.
# to view the temp_path location, you can add a browser() statement after
# creating the temp_path directory and see what temp_path is. R should write
# to the same location for the same R session (if you restart R, temp_path will)
# change.
temp_path <- file.path(tempdir(), "test_basics")
dir.create(temp_path, showWarnings = FALSE)
# remove all artifacts created from testing. (developers: simply comment out
# the line below if you want to keep artifacts for troubleshooting purposes)
on.exit(unlink(temp_path, recursive = TRUE), add = TRUE)
# get model output (already tested in test-basics.R)
simple_small <- SS_output(file.path(example_path, "simple_small"),
verbose = FALSE, printstats = FALSE
)
# run function
SSexecutivesummary(simple_small, plotfolder = temp_path)
test_that("SSexecutivesummary() runs on simple_small model", {
expect_true("table_labels.csv" %in% dir(file.path(temp_path, "tables")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.