Update R/score_model_out.R

Co-authored-by: Zhian N. Kamvar <[email protected]>
hubverse-org · Sep 17, 2024 · 99336ec · 99336ec
1 parent 19c6692
commit 99336ec
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/score_model_out.R b/R/score_model_out.R
@@ -148,9 +148,9 @@ get_metrics <- function(forecast, output_type, select = NULL) {
         level_str <- substr(metric, 19, nchar(metric))
         level <- suppressWarnings(as.numeric(level_str))
         if (is.na(level) || level <= 0 || level >= 100) {
-          stop(paste(
-            "Invalid interval coverage level:", level_str,
-            "- must be a number between 0 and 100 (exclusive)"
+          cli::cli_abort(c(
+            "Invalid interval coverage level: {level_str}",
+            "i" = "must be a number between 0 and 100 (exclusive)"
           ))
         }
         return(purrr::partial(scoringutils::interval_coverage, interval_range = level))