forecaster allows tv updates

Author: stevencarlislewalker

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: macpan2
 Title: Fast and Flexible Compartmental Modelling
-Version: 1.16.2
+Version: 1.16.3
 Authors@R: c(
   person("Steve Walker", email="swalk@mcmaster.ca", role=c("cre", "aut")),
   person("Weiguang Guan", role="aut"),

R/mp_forecaster.R

@@ -30,12 +30,14 @@ mp_more_steps = function(model, steps_to_add) {
 #' Typically this argument will be unused, because by default the data are
 #' stored in the `calibrator` unless you want to avoid making too many copies 
 #' of the data.
+#' @param tv An optional replacement for the `tv` parameter in the 
+#' \code{\link{mp_tmb_calibrator}} function.
 #' @param default An optional list of default model variables (e.g., parameters
 #' initial values of state variables) to override calibrated values.
 #' 
 #' @export
 mp_forecaster = function(calibrator, forecast_period_time_steps
-    , outputs = NULL, data = NULL, default = list()
+    , outputs = NULL, data = NULL, tv = NULL, default = list()
   ) {
   spec = mp_optimized_spec(calibrator, "original")
 
@@ -72,11 +74,11 @@ mp_forecaster = function(calibrator, forecast_period_time_steps
   args$spec = spec
   if (!is.null(data)) args$data = data
   if (!is.null(outputs)) args$outputs = outputs
+  if (!is.null(tv)) args$tv = tv
   if (is.null(args$time)) {
     args$time = calibrator$time_steps_obj$extended_time_arg(forecast_period_time_steps)
   } else {
     args$time = args$time$extend(forecast_period_time_steps)
   }
   do.call(mp_tmb_calibrator, args)
 }
-