Pass range to sample_to_range_long()

Fix #151
epiforecasts · Nov 23, 2021 · 57d58ed · 57d58ed
1 parent 07b40d0
commit 57d58ed
Show file tree

Hide file tree

Showing 5 changed files with 3,134 additions and 3 deletions.
diff --git a/R/plot.R b/R/plot.R
@@ -701,6 +701,7 @@ plot_predictions <- function(data = NULL,
   colnames <- colnames(forecasts)
   if ("sample" %in% colnames) {
     forecasts <- scoringutils::sample_to_range_long(forecasts,
+                                                    range = range,
                                                     keep_quantile_col = FALSE)
   } else if ("quantile" %in% colnames) {
     forecasts <- scoringutils::quantile_to_range_long(forecasts,