futile.logger::flog.threshold("FATAL")
# uses example case vector
cases <- EpiNow2::example_confirmed[1:30]
cases <- data.table::rbindlist(list(
data.table::copy(cases)[, region := "testland"],
cases[, region := "realland"]
))
df_non_zero <- function(df) {
expect_true(nrow(df) > 0)
}
out <- suppressWarnings(regional_epinow(
data = cases,
generation_time = gt_opts(example_generation_time),
delays = delay_opts(example_reporting_delay),
stan = stan_opts(
samples = 25, warmup = 25,
chains = 2,
control = list(adapt_delta = 0.8)
),
logs = NULL
))
test_that("regional_runtimes produces expected output when with input", {
skip_on_cran()
runtimes <- regional_runtimes(out$regional)
expect_equal(names(runtimes), c("region", "time"))
df_non_zero(runtimes)
expect_s3_class(runtimes$time, "difftime")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.