diff --git a/R/populateParameterINFO.r b/R/populateParameterINFO.r index 8ef770d6eafff951cdb3a0c6e64200bc95abd699..36f809437e3c5a3271042020224c95a80afce3fd 100644 --- a/R/populateParameterINFO.r +++ b/R/populateParameterINFO.r @@ -20,13 +20,13 @@ populateParameterINFO <- function(parameterCd, localINFO=INFO, interactive=TRUE){ if (nzchar(parameterCd)){ if(interactive){ - message("Your water quality data are for parameter number", localINFO$paramNumber, "which has the name:'", localINFO$param.nm, "'.\n") - message("Typically you will want a shorter name to be used in graphs and tables. The suggested short name is:'", localINFO$paramShortName, "'.\n") - message("If you would like to change the short name, enter it here, otherwise just hit enter (no quotes):") + cat("Your water quality data are for parameter number", localINFO$paramNumber, "which has the name:'", localINFO$param.nm, "'.\n") + cat("Typically you will want a shorter name to be used in graphs and tables. The suggested short name is:'", localINFO$paramShortName, "'.\n") + cat("If you would like to change the short name, enter it here, otherwise just hit enter (no quotes):") shortNameTemp <- readline() if (nchar(shortNameTemp)>0) localINFO$paramShortName <- shortNameTemp - message("The units for the water quality data are: ", localINFO$param.units, ".\n") - message("It is helpful to set up a constiuent abbreviation when doing multi-constituent studies, enter a unique id (three or four characters should work something like tn or tp or NO3).\nIt is case sensitive. Even if you don't feel you need an abbreviation you need to enter something (no quotes):\n") + cat("The units for the water quality data are: ", localINFO$param.units, ".\n") + cat("It is helpful to set up a constiuent abbreviation when doing multi-constituent studies, enter a unique id (three or four characters should work something like tn or tp or NO3).\nIt is case sensitive. Even if you don't feel you need an abbreviation you need to enter something (no quotes):\n") localINFO$constitAbbrev <- readline() } else { localINFO$constitAbbrev <- localINFO$paramShortName @@ -34,13 +34,13 @@ populateParameterINFO <- function(parameterCd, localINFO=INFO, interactive=TRUE) } else { if (interactive){ localINFO$paramNumber <- NA - message("Enter a long name for the water quality data (no quotes):\n") + cat("Enter a long name for the water quality data (no quotes):\n") localINFO$param.nm <- readline() - message("Enter a short name to be used in graphs and tables(no quotes):\n") + cat("Enter a short name to be used in graphs and tables(no quotes):\n") localINFO$paramShortName <- readline() - message("It is helpful to set up a constiuent abbreviation when doing multi-constituent studies, enter a unique id (three or four characters should work something like tn or tp or NO3).\nIt is case sensitive. Even if you don't feel you need an abbreviation you need to enter something (no quotes):\n") + cat("It is helpful to set up a constiuent abbreviation when doing multi-constituent studies, enter a unique id (three or four characters should work something like tn or tp or NO3).\nIt is case sensitive. Even if you don't feel you need an abbreviation you need to enter something (no quotes):\n") localINFO$constitAbbrev <- readline() - message("Enter the units of the water quality data(no quotes):\n") + cat("Enter the units of the water quality data(no quotes):\n") localINFO$param.units <- readline() } else { localINFO$paramNumber <- NA