Update utils_import_inputs.R

Improved messaging for `import_inputs` check on pop cols
USEPA · Jul 9, 2024 · 2100653 · 2100653
1 parent c4709a7
commit 2100653
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/FrEDI/R/utils_import_inputs.R b/FrEDI/R/utils_import_inputs.R
@@ -432,7 +432,8 @@ check_valCols <- function(
       return()
     } ### End if(nMatches)
     ### Message user
-    msg_vcol2 <- paste0("Using column ", "\"", vColMatch, "\"", ", and renaming to ", "\"", valCol, "\"", "...")
+    renameVal <- doPop |> ifelse("state_", "") |> paste0(valCol)
+    msg_vcol2 <- paste0("Using column ", "\"", vColMatch, "\"", ", and renaming to ", "\"", renameVal, "\"", "...")
     msg1_i |> paste0(msg_vcol2) |> message()
   } ### End if(hasValCol) (no else)