From 2bcdf0f33925128f0f1958e53ac74cd45593ac77 Mon Sep 17 00:00:00 2001 From: fawda123 Date: Tue, 7 Nov 2023 07:57:09 -0500 Subject: [PATCH] fix error message for values outside of range in checkMWRfrecom --- R/checkMWRfrecom.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/checkMWRfrecom.R b/R/checkMWRfrecom.R index 51ee0db4..cb5deb7e 100644 --- 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'))