fix error message for values outside of range in checkMWRfrecom

massbays-tech · Nov 7, 2023 · 2bcdf0f · 2bcdf0f
1 parent 0c4cd69
commit 2bcdf0f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/checkMWRfrecom.R b/R/checkMWRfrecom.R
@@ -93,7 +93,7 @@ checkMWRfrecom <- function(frecomdat, warn = TRUE){
     unlist
   if(any(chk, na.rm = T)){
     tochk <- names(chk)[chk]
-    stop(msg, '\n\tValues less than 0 or greater than 100 found in columns: ', paste(tochk, collapse = ', ', call. = FALSE))
+    stop(msg, '\n\tValues less than 0 or greater than 100 found in columns: ', paste(tochk, collapse = ', '), call. = FALSE)
   }
   message(paste(msg, 'OK'))