Update utils_import_inputs.R

Corrected which columns get printed out if columns are missing in checks for `import_input` utilities
USEPA · Aug 29, 2024 · fae7f14 · fae7f14
1 parent e58e295
commit fae7f14
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/FrEDI/R/utils_import_inputs.R b/FrEDI/R/utils_import_inputs.R
@@ -624,7 +624,7 @@ check_input_data <- function(
   ### If columns don't pass, message user and return NULL
   ### Otherwise, continue
   if(!checkCols) {
-    msg2_i |> paste0(msg_i3) |> paste0(namesDf[whichCols] |> paste(collapse=", "), "!") |> message()
+    msg2_i |> paste0(msg_i3) |> paste0(namesDf[!whichCols] |> paste(collapse=", "), "!") |> message()
     msg2_i |> paste0(msg_i2) |> message()
     return(NULL)
   } ### End if(!checkCols)