Merge pull request #164 from ldecicco-USGS/master

Need to convert 1 line results.
DOI-USGS · Jan 6, 2016 · 95243b7 · 95243b7
2 parents c4f25db + f671511
commit 95243b7
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: dataRetrieval
 Type: Package
 Title: Retrieval Functions for USGS and EPA Hydrologic and Water Quality Data
-Version: 2.4.4
+Version: 2.4.5
 Date: 2015-12-09
 Authors@R: c( person("Robert", "Hirsch", role = c("aut"),
     email = "[email protected]"),

diff --git a/R/readNWISsite.r b/R/readNWISsite.r
@@ -70,7 +70,9 @@ readNWISsite <- function(siteNumbers){
   urlSitefile <- paste0("http://waterservices.usgs.gov/nwis/site/?format=rdb&siteOutput=Expanded&sites=",siteNumber)
 
   data <- importRDB1(urlSitefile,asDateTime=FALSE)
-
+  #readr needs multiple lines to convert to anything but characters:  
+  data[,grep("_va",names(data))] <- sapply(data[,grep("_va",names(data))], as.numeric)
+
   return(data)
 
 }