fix windows error

wlandau · Oct 8, 2024 · 8c8316f · 8c8316f
1 parent 96615fa
commit 8c8316f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/crew_options_metrics.R b/R/crew_options_metrics.R
@@ -63,7 +63,7 @@ crew_options_metrics_validate <- function(options) {
   on_windows <- identical(unname(tolower(Sys.info()[["sysname"]])), "windows")
   streams <- file.path("/dev", c("stdout", "stderr"))
   crew_assert(
-    !(on_windows && options$path %in% streams),
+    !(on_windows && any(options$path %in% streams)),
     message = paste(
       "path cannot be \"/dev/stdout\" or \"/dev/stderr\" on Windows."
     )