add globals, fix function arg

Author: Kaitlyn Johnson

R/fit_wwinference_wrapper.R

@@ -110,7 +110,7 @@ fit_wwinference_wrapper <- function(
     # Get and save quantiles
     ww_quantiles <- ww_draws |>
       trajectories_to_quantiles(
-        quantile = quantiles_to_save,
+        quantiles = quantiles_to_save,
         timepoint_cols = "date",
         value_col = "pred_value",
         quantile_value_name = "predicted",

R/globals.R

@@ -84,5 +84,6 @@ utils::globalVariables(c(
   "state", # <format_baseline_forecasts>
   "quantile_level", # <format_baseline_forecasts>
   "pred_value7dsum", # <format_baseline_forecasts>
+  ":=", # <trajectories_to_quantiles>
   NULL
 ))

R/utils.R

@@ -64,6 +64,7 @@ save_csv <- function(df, filename, path, allow_empty = TRUE) {
 #' locations, such as different US States and Territories.
 #' If NULL, ignored. Default NULL.
 #' @export
+#' @autoglobal
 trajectories_to_quantiles <- function(
     trajectories,
     quantiles = c(