## hack: stored object contains old copy of run_sim_breaks that uses
## old format for time_pars (Relative_value)
## FIXME: re-build and re-store
fix_stored <- function(x) {
if (requireNamespace("anytime")) {
x$forecast_args$sim_fun <- McMasterPandemic::run_sim_break
x$forecast_args$start_date <- anytime::anydate(x$forecast_args$start_date)
x$forecast_args$end_date <- anytime::anydate(x$forecast_args$end_date)
if ("break_dates" %in% names(x$forecast_args$time_args)) {
x$forecast_args$time_args$break_dates <-
anytime::anydate(x$forecast_args$time_args$break_dates)
}
}
## update break_dates to modern format
## NOT yet applied, updates innards inconsistently
if (FALSE) {
if ("break_dates" %in% names(x$forecast_args$time_args)) {
bd <- x$forecast_args$time_args$break_dates
x$forecast_args$time_args$break_dates <- NULL
x$forecast_args$time_args$params_timevar <-
data.frame(
Date = bd,
Symbol = "beta0",
Value = NA,
Type = "rel_orig"
)
}
}
return(x) ## can't convert dates, live with the warnings
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.