library(SpARKjags)
context("Test get_model()")
# Load in data
data <- jags_data(classification = "Carbapenem",
categories = "human",
pathogen = "Klebsiella pneumoniae",
removeQuinPen = T)
data$jags <- data$jags[c("h_resist", "gp_resist", "v_resist", "o_resist",
"N_patients", "N_gp", "N_volunteers", "N_outpatients",
"N_hosp", "hospital", "ward", "h_sample_GUID")]
save_to <- "tmp_test_dir/h.rds"
test_that("a runjags object is read in", {
# Run model and save output to tmp/a.rds
expect_warning(
path <- run_SpARKjags_model(data = data,
SpARKjags_model = "individual_models/h.R",
save_to = save_to)
)
expect_silent(get_model(path))
})
unlink("tmp_test_dir", recursive = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.