fix docs, forecaster_pred->slide_forecaster

Author: dsweber2

NAMESPACE

@@ -15,7 +15,6 @@ export(evaluate_predictions)
 export(extend_ahead)
 export(flatline_fc)
 export(forecaster_lookup)
-export(forecaster_pred)
 export(format_storage)
 export(id_ahead_ensemble_grid)
 export(interval_coverage)
@@ -28,7 +27,6 @@ export(make_shared_ensembles)
 export(make_shared_grids)
 export(make_target_ensemble_grid)
 export(make_target_param_grid)
-export(manage_S3_forecast_cache)
 export(overprediction)
 export(perform_sanity_checks)
 export(read_external_predictions_data)
@@ -37,11 +35,10 @@ export(run_workflow_and_format)
 export(scaled_pop)
 export(sharpness)
 export(single_id)
+export(slide_forecaster)
 export(underprediction)
 export(weighted_interval_score)
 importFrom(assertthat,assert_that)
-importFrom(aws.s3,get_bucket)
-importFrom(aws.s3,s3sync)
 importFrom(cli,cli_abort)
 importFrom(cli,hash_animal)
 importFrom(dplyr,across)
@@ -85,7 +82,6 @@ importFrom(epipredict,step_population_scaling)
 importFrom(epipredict,step_training_window)
 importFrom(epiprocess,as_epi_df)
 importFrom(epiprocess,epix_slide)
-importFrom(here,here)
 importFrom(magrittr,"%<>%")
 importFrom(magrittr,"%>%")
 importFrom(purrr,imap)

R/data_validation.R

@@ -46,7 +46,7 @@ perform_sanity_checks <- function(epi_data,
 #'   to be able to return a null result rather than error out.
 #' @param epi_data the input data
 #' @param ahead the effective ahead; may be infinite if there isn't enough data.
-#' @param args_input the input as supplied to `forecaster_pred`; lags is the
+#' @param args_input the input as supplied to `slide_forecaster`; lags is the
 #'   important argument, which may or may not be defined, with the default
 #'   coming from `arx_args_list`
 #' @param buffer how many training data to insist on having (e.g. if `buffer=1`,

R/looping.R

@@ -27,7 +27,7 @@
 #' @importFrom cli cli_abort
 #' @importFrom rlang !!
 #' @export
-forecaster_pred <- function(data,
+slide_forecaster <- function(data,
                             outcome,
                             extra_sources = "",
                             forecaster = scaled_pop,
@@ -43,7 +43,7 @@ forecaster_pred <- function(data,
   if (is.null(forecaster_args$ahead)) {
     cli_abort(
       c(
-        "exploration-tooling error: forecaster_pred needs some value for ahead."
+        "exploration-tooling error: slide_forecaster needs some value for ahead."
       ),
       class = "explorationToolingError"
     )
@@ -95,7 +95,7 @@ forecaster_pred <- function(data,
               forecaster_args = forecaster_args,
               e = e
             )
-            saveRDS(dump_vars, "forecaster_pred_error.rds")
+            saveRDS(dump_vars, "slide_forecaster_error.rds")
             e
           }
         }

R/targets_utils.R

@@ -185,7 +185,7 @@ make_forecasts_and_scores_by_ahead <- function() {
     tar_target_raw(
       name = ONE_AHEAD_FORECAST_NAME,
       command = expression(
-        forecaster_pred(
+        slide_forecaster(
           data = joined_archive_data_2022,
           outcome = "hhs",
           extra_sources = "",

forecaster_testing.R

@@ -70,7 +70,7 @@ constant <- as_epi_archive(tibble(
   a = synth_mean
 ))
 
-forecaster_pred(
+slide_forecaster(
   data = constant,
   outcome = "hhs",
   extra_sources = "",
@@ -187,7 +187,7 @@ forecasts_and_scores <- tar_map(
   tar_target(
     name = forecast,
     command = {
-      forecaster_pred(
+      slide_forecaster(
         data = joined_archive_data_2022,
         outcome = "hhs",
         extra_sources = "",