library("data.table")
library("lifecycle")
if (identical(Sys.getenv("NOT_CRAN"), "true")) {
files <- c(
"convolve.stan", "pmfs.stan", "observation_model.stan", "secondary.stan",
"rt.stan", "infections.stan", "delays.stan", "generated_quantities.stan"
)
if (!(tolower(Sys.info()[["sysname"]]) %in% "windows")) {
suppressMessages(
expose_stan_fns(files,
target_dir = system.file("stan/functions", package = "EpiNow2")
)
)
}
}
withr::defer(future::plan("sequential"), teardown_env())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.