diff --git a/R/renameColumns.R b/R/renameColumns.R index cff16c8f4b37ac712b58b07d4ce51a32296affcc..dedb3736d757dd35a82e62a354686e72f60e7393 100644 --- a/R/renameColumns.R +++ b/R/renameColumns.R @@ -27,7 +27,7 @@ renameColumns <- function(rawData){ pCodes <- sapply(strsplit(dataCol_names, "_"), function(x) x[2]) statCd <- sapply(strsplit(dataCol_names, "_"), function(x) x[3]) - pcodeINFO <- getNWISPcodeInfo(pCodes,interactive=FALSE) + pcodeINFO <- getNWISPcodeInfo(pCodes) multipleCodes <- anyDuplicated(pCodes) statCd <- sub("00001", "_Max", statCd)