Commit 8858be58 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Merge pull request #122 from ldecicco-USGS/master

Updating rBuildignore
parents 21683224 2511ae81
vignettes\figure
vignettes/figure
appveyor.yml
.travis.yml
.gitignore
dataRetrieval-concordance.tex
^.*\.Rproj$
^\.Rproj\.user$
^\.Rproj\inst\dataRetrieval.log
^\.Rproj\inst\dataRetrieval-concordance.tex
^\.Rproj\inst\dataRetrieval.toc
^\.Rproj\inst\dataRetrieval.tex
^\.travis\.yml$
^\.Rproj\.gitignore
^\.Rproj\.RData
......@@ -12,5 +12,5 @@ vignettes\figure
^\.Rproj\.Rhistory
^\.Rproj\.travis.yml
^\.Rproj\appveyor.yml
appveyor.yml
......@@ -143,6 +143,7 @@ readWQPdata <- function(...){
}
values <- gsub(",","%2C",values)
values <- gsub(";","%3B",values)
values <- gsub("%20","+",values)
values <- gsub(":","%3A",values)
......
......@@ -65,7 +65,23 @@ whatWQPsites <- function(...){
values <- values[!(names(values) %in% "tz")]
}
if("statecode" %in% names(values)){
stCd <- values["statecode"]
if(!grepl("US:",stCd)){
values["statecode"] <- paste0("US:",stateCdLookup(stCd, "id"))
}
}
if("stateCd" %in% names(values)){
stCd <- values["stateCd"]
if(!grepl("US:",stCd)){
values["stateCd"] <- paste0("US:",stateCdLookup(stCd, "id"))
}
names(values)[names(values) == "stateCd"] <- "statecode"
}
values <- gsub(",","%2C",values)
values <- gsub(";","%3B",values)
values <- gsub("%20","+",values)
values <- gsub(":","%3A",values)
......
Supports Markdown
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