epipredict updates (#186)

Author: dsweber2

R/forecasters/forecaster_baseline_linear.R

@@ -108,8 +108,10 @@ forecaster_baseline_linear <- function(epi_data, ahead, log = FALSE, sort = FALS
   quantile_forecast <-
     point_forecast %>%
     rowwise() %>%
-    mutate(quantile = get_quantile(value, ahead) %>% nested_quantiles()) %>%
-    unnest(quantile) %>%
+    mutate(dist = get_quantile(value, ahead)) %>%
+    pivot_quantiles_longer(dist) %>%
+    rename(quantile_levels = dist_quantile_level, values = dist_value) %>%
+    select(-value) %>%
     left_join(population_data, by = "geo_value") %>%
     rename(quantile = quantile_levels) %>%
     {

R/forecasters/formatters.R

@@ -14,10 +14,9 @@
 #' @export
 format_storage <- function(pred, true_forecast_date, target_end_date) {
   pred %>%
-    mutate(.dstn = nested_quantiles(.pred_distn)) %>%
-    unnest(.dstn) %>%
-    select(-any_of(c(".pred_distn", ".pred", "time_value"))) %>%
-    rename(quantile = quantile_levels, value = values) %>%
+    epipredict::pivot_quantiles_longer(.pred_distn) %>%
+    mutate(value = .pred_distn_value, quantile = .pred_distn_quantile_level) %>%
+    select(-starts_with(".pred"), -any_of(c("time_value"))) %>%
     relocate(where(is.character), where(is.factor), forecast_date, target_end_date = target_date, quantile, value)
 }