siteNumber <- "02177000"
startDate <- "2012-09-01"
endDate <- "2012-10-01"
offering <- '00003'
property <- '00060'
obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
## Not run:
# data <- importWaterML1(obs_url,TRUE)
#
# groundWaterSite <- "431049071324301"
# startGW <- "2013-10-01"
# endGW <- "2014-06-30"
# groundwaterExampleURL <- constructNWISURL(groundWaterSite, NA,
# startGW,endGW, service="gwlevels")
# groundWater <- importWaterML1(groundwaterExampleURL)
#
# unitDataURL <- constructNWISURL(siteNumber,property,
# "2013-11-03","2013-11-03",'uv')
# unitData <- importWaterML1(unitDataURL,TRUE)
#
# # Two sites, two pcodes, one site has two data descriptors:
# siteNumber <- c('01480015',"04085427")
# obs_url <- constructNWISURL(siteNumber,c("00060","00010"),startDate,endDate,'dv')
# data <- importWaterML1(obs_url)
# data$dateTime <- as.Date(data$dateTime)
# data <- renameNWISColumns(data)
# names(attributes(data))
# attr(data, "url")
# attr(data, "disclaimer")
#
# inactiveSite <- "05212700"
# inactiveSite <- constructNWISURL(inactiveSite, "00060", "2014-01-01", "2014-01-10",'dv')
# inactiveSite <- importWaterML1(inactiveSite)
#
# inactiveAndAcitive <- c("07334200","05212700")
# inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv')
# inactiveAndAcitive <- importWaterML1(inactiveAndAcitive)
#
# ## End(Not run)
filePath <- system.file("extdata", package="dataRetrieval")
fileName <- "WaterML1Example.xml"
fullPath <- file.path(filePath, fileName)
imporFile <- importWaterML1(fullPath,TRUE)
Run the code above in your browser using DataLab