Commit b29a67c8 authored by David Watkins's avatar David Watkins
Browse files

uncomment tests

parent 879219f7
......@@ -25,14 +25,14 @@
#' "observedProperty=urn:ogc:def:property:OGC:GroundWaterLevel",
#' "responseFormat=text/xml",
#' "featureOfInterest=VW_GWDP_GEOSERVER.USGS.403836085374401",sep="&")
#' # data <- importNGWMN(obs_url)
#' data <- importNGWMN(obs_url)
#'
#' obs_url <- paste("http://cida.usgs.gov/ngwmn_cache/sos?request=GetObservation",
#' "service=SOS","version=2.0.0",
#' "observedProperty=urn:ogc:def:property:OGC:GroundWaterLevel",
#' "responseFormat=text/xml",
#' "featureOfInterest=VW_GWDP_GEOSERVER.USGS.474011117072901",sep="&")
#' # data <- importNGWMN(obs_url)
#' data <- importNGWMN(obs_url)
#' }
#'
importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
......
......@@ -119,22 +119,19 @@ readNGWMNdata <- function(service, ..., asDateTime = TRUE, tz = "UTC"){
#' \donttest{
#' #one site
#' site <- "USGS.430427089284901"
#' # Really slow:
#' #oneSite <- readNGWMNlevels(siteNumbers = site)
#' oneSite <- readNGWMNlevels(siteNumbers = site)
#'
#' #multiple sites
#' sites <- c("USGS:272838082142201","USGS:404159100494601", "USGS:401216080362703")
#' # Really slow:
#' # multiSiteData <- readNGWMNlevels(sites)
#' multiSiteData <- readNGWMNlevels(sites)
#'
#' #non-USGS site
#' site <- "MBMG.892195"
#' # data <- readNGWMNlevels(siteNumbers = site, asDateTime = FALSE)
#' site <- "MBMG.103306"
#' data <- readNGWMNlevels(siteNumbers = site, asDateTime = FALSE)
#'
#' #site with no data returns empty data frame
#' # Really slow:
#' noDataSite <- "UTGS.401544112060301"
#' # noDataSite <- readNGWMNlevels(siteNumbers = noDataSite)
#' noDataSite <- readNGWMNlevels(siteNumbers = noDataSite)
#' }
readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){
data <- readNGWMNdata(siteNumbers = siteNumbers, service = "observation",
......@@ -161,13 +158,9 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){
#' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNsites(siteNumbers = site)
#'
#' #multiple sites
#' sites <- c("USGS:272838082142201","USGS:404159100494601", "USGS:401216080362703")
#' # multiSiteInfo <- readNGWMNsites(sites)
#'
#' #non-USGS site
#' site <- "MBMG.892195"
#' #siteInfo <- readNGWMNsites(siteNumbers = site)
#' site <- "MBMG.103306"
#' siteInfo <- readNGWMNsites(siteNumbers = site)
#'
#' }
readNGWMNsites <- function(siteNumbers){
......
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