diff --git a/R/importWaterML1.r b/R/importWaterML1.r index a7db0170598fcddf168e7de227f364b75e210606..4d6df5409c71f4e8f39cb10b8c8b3a2034aa8af2 100644 --- a/R/importWaterML1.r +++ b/R/importWaterML1.r @@ -84,16 +84,17 @@ #' inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv') #' inactiveAndAcitive <- importWaterML1(inactiveAndAcitive) #' +#' Timezone change with specified local timezone: +#' tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv") +#' tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago") +#' +#' #' } #' filePath <- system.file("extdata", package="dataRetrieval") #' fileName <- "WaterML1Example.xml" #' fullPath <- file.path(filePath, fileName) #' imporFile <- importWaterML1(fullPath,TRUE) #' -#'#Timezone change with specified local timezone: -#' tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv") -#' tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago") -#' importWaterML1 <- function(obs_url,asDateTime=FALSE, tz=""){ if(file.exists(obs_url)){ diff --git a/man/importWaterML1.Rd b/man/importWaterML1.Rd index 8c3821ca2b24997b5db3dd0fc5366fe554fe64b9..ec30884a9a260bec8365cf92fb916232b6b238a0 100644 --- a/man/importWaterML1.Rd +++ b/man/importWaterML1.Rd @@ -88,15 +88,16 @@ inactiveAndAcitive <- c("07334200","05212700") inactiveAndAcitive <- constructNWISURL(inactiveAndAcitive, "00060", "2014-01-01", "2014-01-10",'dv') inactiveAndAcitive <- importWaterML1(inactiveAndAcitive) +Timezone change with specified local timezone: +tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv") +tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago") + + } filePath <- system.file("extdata", package="dataRetrieval") fileName <- "WaterML1Example.xml" fullPath <- file.path(filePath, fileName) imporFile <- importWaterML1(fullPath,TRUE) - -#Timezone change with specified local timezone: -tzURL <- constructNWISURL("04027000", c("00300","63680"), "2011-11-05", "2011-11-07","uv") -tzIssue <- importWaterML1(tzURL, TRUE, "America/Chicago") } \seealso{ \code{\link{renameNWISColumns}}