From fae7f146ce3862d15ca8c30908e5d3f72dbaab46 Mon Sep 17 00:00:00 2001 From: Karen Noiva Date: Thu, 29 Aug 2024 16:19:34 -0400 Subject: [PATCH] Update utils_import_inputs.R Corrected which columns get printed out if columns are missing in checks for `import_input` utilities --- FrEDI/R/utils_import_inputs.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/FrEDI/R/utils_import_inputs.R b/FrEDI/R/utils_import_inputs.R index d5fe7429..073b3abc 100644 --- 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)