updating for climatological

Author: dsweber2

NAMESPACE

@@ -136,6 +136,7 @@ export(arx_class_epi_workflow)
 export(arx_classifier)
 export(arx_fcast_epi_workflow)
 export(arx_forecaster)
+export(as_epi_df)
 export(as_tibble)
 export(autoplot)
 export(bake)
@@ -182,6 +183,7 @@ export(layer_quantile_distn)
 export(layer_residual_quantiles)
 export(layer_threshold)
 export(layer_unnest)
+export(mutate)
 export(nested_quantiles)
 export(new_default_epi_recipe_blueprint)
 export(new_epi_recipe_blueprint)
@@ -200,6 +202,7 @@ export(rename)
 export(select)
 export(slather)
 export(smooth_quantile_reg)
+export(snap)
 export(step_adjust_latency)
 export(step_climate)
 export(step_epi_ahead)
@@ -282,11 +285,11 @@ importFrom(hardhat,extract_recipe)
 importFrom(hardhat,quantile_pred)
 importFrom(hardhat,refresh_blueprint)
 importFrom(hardhat,run_mold)
+importFrom(lifecycle,deprecated)
 importFrom(lubridate,"%m-%")
 importFrom(lubridate,leap_year)
 importFrom(lubridate,month)
 importFrom(lubridate,yday)
-importFrom(lifecycle,deprecated)
 importFrom(magrittr,"%>%")
 importFrom(magrittr,extract2)
 importFrom(recipes,bake)

R/climatological_forecaster.R

@@ -148,7 +148,7 @@ climatological_forecaster <- function(epi_data,
       .by = all_of(args_list$quantile_by_key)
     ) %>%
     rename(.pred_distn = climate_pred) %>%
-    mutate(.pred_distn = dist_quantiles(.pred_distn, args_list$quantile_levels))
+    mutate(.pred_distn = hardhat::quantile_pred(do.call(rbind, .pred_distn), args_list$quantile_levels))
   # combine them together
   climate_table <- climate_center %>%
     left_join(climate_quantiles, by = c(".idx", args_list$quantile_by_key)) %>%

R/layer_threshold_preds.R

@@ -61,7 +61,11 @@ layer_threshold_new <-
 
 
 
-# restrict various objects to the interval [lower, upper]
+#' restrict various objects to the interval [lower, upper]
+#' @param x the object to restrict
+#' @param lower numeric, the lower bound
+#' @param upper numeric, the upper bound
+#' @param ... unused
 #' @export
 #' @keywords internal
 snap <- function(x, lower, upper, ...) {