Commit 9ddedbf1 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Changing dontrun to donttest for better checks of the package.

parent 9f6295db
......@@ -25,7 +25,7 @@ for more information on time zones.}
Retrieve groundwater levels from the National Ground Water Monitoring Network \url{http://cida.usgs.gov/ngwmn/}.
}
\examples{
\dontrun{
\donttest{
#one site
site <- "USGS.430427089284901"
oneSite <- readNGWMNlevels(siteNumbers = site)
......
......@@ -23,7 +23,7 @@ dec_lat_va, dec_lon_va \tab numeric \tab Site latitude and longitude \cr
Retrieve site data from the National Ground Water Monitoring Network \url{http://cida.usgs.gov/ngwmn/}.
}
\examples{
\dontrun{
\donttest{
#one site
site <- "USGS.430427089284901"
oneSite <- readNGWMNsites(siteNumbers = site)
......
......@@ -65,7 +65,7 @@ Arguments to the function should be based on \url{https://waterservices.usgs.gov
See examples below for ideas of constructing queries.
}
\examples{
\dontrun{
\donttest{
# Examples not run for time considerations
dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv")
instFlow <- readNWISdata(sites="05114000", service="iv",
......
......@@ -54,7 +54,7 @@ site_id <- '04085427'
startDate <- '2012-01-01'
endDate <- '2012-06-30'
pCode <- '00060'
\dontrun{
\donttest{
rawDailyQ <- readNWISdv(site_id,pCode, startDate, endDate)
rawDailyQAndTempMeanMax <- readNWISdv(site_id,c('00010','00060'),
startDate, endDate, statCd=c('00001','00003'))
......
......@@ -60,7 +60,7 @@ See \url{https://waterservices.usgs.gov/rest/GW-Levels-Service.html} for more in
}
\examples{
site_id <- "434400121275801"
\dontrun{
\donttest{
data <- readNWISgwl(site_id, '','')
sites <- c("434400121275801", "375907091432201")
data2 <- readNWISgwl(site_id, '','')
......
......@@ -60,7 +60,7 @@ See \url{https://waterdata.usgs.gov/usa/nwis/sw} for details about surface water
}
\examples{
site_ids <- c('01594440','040851325')
\dontrun{
\donttest{
data <- readNWISmeas(site_ids)
Meas05316840 <- readNWISmeas("05316840")
Meas05316840.ex <- readNWISmeas("05316840",expanded=TRUE)
......
......@@ -58,7 +58,7 @@ needed, set the `asDateTime` argument to FALSE. No dates will be converted to R
}
\examples{
site_ids <- c('01594440','040851325')
\dontrun{
\donttest{
data <- readNWISpeak(site_ids)
data2 <- readNWISpeak(site_ids, asDateTime=FALSE)
stations<-c("06011000")
......
......@@ -95,7 +95,7 @@ site_ids <- c('04024430','04024000')
startDate <- '2010-01-01'
endDate <- ''
parameterCd <- c('34247','30234','32104','34220')
\dontrun{
\donttest{
rawNWISqwData <- readNWISqw(site_ids,parameterCd,startDate,endDate)
rawNWISqwDataReshaped <- readNWISqw(site_ids,parameterCd,
startDate,endDate,reshape=TRUE)
......
......@@ -46,7 +46,7 @@ relate flow to stage.
}
\examples{
site_id <- '01594440'
\dontrun{
\donttest{
data <- readNWISrating(site_id, "base")
attr(data, "RATING")
}
......
......@@ -69,7 +69,7 @@ comment \tab character \tab Header comments from the RDB file \cr
Imports data from USGS site file site. This function gets data from here: \url{https://waterservices.usgs.gov/}
}
\examples{
\dontrun{
\donttest{
siteINFO <- readNWISsite('05114000')
siteINFOMulti <- readNWISsite(c('05114000','09423350'))
}
......
......@@ -52,7 +52,7 @@ Retrieves site statistics from the USGS Statistics Web Service beta.
See \url{https://waterservices.usgs.gov/rest/Statistics-Service.html} for more information.
}
\examples{
\dontrun{
\donttest{
x1 <- readNWISstat(siteNumbers=c("02319394"),
parameterCd=c("00060"),
statReportType="annual")
......
......@@ -37,7 +37,7 @@ Retrieves water use data from USGS Water Use Data for the Nation. See \url{http
more information. All available use categories for the supplied arguments are retrieved.
}
\examples{
\dontrun{
\donttest{
#All data for a county
allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny")
......
......@@ -65,7 +65,7 @@ site_id <- '05114000'
parameterCd <- '00060'
startDate <- "2014-10-10"
endDate <- "2014-10-10"
\dontrun{
\donttest{
rawData <- readNWISuv(site_id,parameterCd,startDate,endDate)
rawData_today <- readNWISuv(site_id, parameterCd, Sys.Date(),Sys.Date())
......
......@@ -104,7 +104,7 @@ Imports data from Water Quality Portal web service. This function gets the data
because it allows for other agencies rather than the USGS.
}
\examples{
\dontrun{
\donttest{
nameToUse <- "pH"
pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
pHData_summary <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),
......
......@@ -118,7 +118,7 @@ either USGS, or other Water Quality Portal offered sites. It is required to use
site name, such as 'USGS-01234567'.
}
\examples{
\dontrun{
\donttest{
rawPcode <- readWQPqw('USGS-01594440','01075', '', '')
rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
rawPHsites <- readWQPqw(c('USGS-05406450', 'USGS-05427949','WIDNR_WQX-133040'), 'pH','','')
......
......@@ -65,7 +65,7 @@ The following statistics codes are converted by \code{renameNWISColumns}.
siteWithTwo <- '01480015'
startDate <- "2012-09-01"
endDate <- "2012-10-01"
\dontrun{
\donttest{
url2 <- constructNWISURL(siteWithTwo, "00060",startDate,endDate,'dv')
twoResults <- importWaterML1(url2,TRUE)
twoResults <- renameNWISColumns(twoResults)
......
......@@ -21,7 +21,7 @@ you want to use options: \code{c('public','internal')}
}
\examples{
\dontrun{
\donttest{
setAccess('internal')
setAccess('public')
......
......@@ -57,7 +57,7 @@ Imports a table of available parameters, period of record, and count. See \url{h
for more information.
}
\examples{
\dontrun{
\donttest{
availableData <- whatNWISdata(siteNumber = '05114000')
# To find just unit value ('instantaneous') data:
uvData <- whatNWISdata(siteNumber = '05114000',service="uv")
......
......@@ -35,7 +35,7 @@ Returns a list of sites from the NWIS web service. This function gets the data f
Mapper format is used
}
\examples{
\dontrun{
\donttest{
siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
oneSite <- whatNWISsites(sites="05114000")
}
......
......@@ -19,7 +19,7 @@ Returns a list of sites from the Water Quality Portal web service. This function
Arguments to the function should be based on \url{https://www.waterqualitydata.us/webservices_documentation}
}
\examples{
\dontrun{
\donttest{
site1 <- whatWQPdata(siteid="USGS-01594440")
type <- "Stream"
......
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