avoid env-specific characters with grep

dsweber2 · dsweber2 · commit 6ff4f46ff38f · 2025-10-15T15:09:50.000-05:00
diff --git a/R/targets/score_targets.R b/R/targets/score_targets.R
@@ -91,7 +91,7 @@ score_forecasts <- function(latest_data, forecasts, target) {
         select(-location)
     },
     error = function(e) {
-      if (rlang::cnd_message(e) == "\033[1m\033[22m\033[33m!\033[39m After removing rows with NA values in the data, no forecasts are left.") {
+      if (grepl("no forecasts", rlang::cnd_message(e))) {
         return(tibble())
       } else {
         e

Original file line number	Diff line number	Diff line change
`@@ -91,7 +91,7 @@ score_forecasts <- function(latest_data, forecasts, target) {`
`91`	`91`	`select(-location)`
`92`	`92`	`},`
`93`	`93`	`error = function(e) {`
`94`		`- if (rlang::cnd_message(e) == "\033[1m\033[22m\033[33m!\033[39m After removing rows with NA values in the data, no forecasts are left.") {`
	`94`	`+ if (grepl("no forecasts", rlang::cnd_message(e))) {`
`95`	`95`	`return(tibble())`
`96`	`96`	`} else {`
`97`	`97`	`e`