Skip to content
Snippets Groups Projects
Commit 68632dd7 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Took out interactive.

parent 43f5d51e
No related branches found
No related tags found
1 merge request!39Overhaul of function names. Move some functionality to EGRET.
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
R/renameColumns.R
+ 1
− 1
View file @ 68632dd7
...@@ -27,7 +27,7 @@ renameColumns <- function(rawData){ ...@@ -27,7 +27,7 @@ renameColumns <- function(rawData){
pCodes <- sapply(strsplit(dataCol_names, "_"), function(x) x[2]) pCodes <- sapply(strsplit(dataCol_names, "_"), function(x) x[2])
statCd <- sapply(strsplit(dataCol_names, "_"), function(x) x[3]) statCd <- sapply(strsplit(dataCol_names, "_"), function(x) x[3])
pcodeINFO <- getNWISPcodeInfo(pCodes,interactive=FALSE) pcodeINFO <- getNWISPcodeInfo(pCodes)
multipleCodes <- anyDuplicated(pCodes) multipleCodes <- anyDuplicated(pCodes)
statCd <- sub("00001", "_Max", statCd) statCd <- sub("00001", "_Max", statCd)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment