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
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
#' @importFrom dplyr select #' @importFrom dplyr select
#' @importFrom dplyr everything #' @importFrom dplyr everything
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv") #' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv")
#' dataTemp <- addWaterYear(dataTemp) #' dataTemp <- addWaterYear(dataTemp)
#' #'
......
...@@ -17,7 +17,7 @@ ...@@ -17,7 +17,7 @@
#' offering <- '00003' #' offering <- '00003'
#' property <- '00060' #' property <- '00060'
#' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv') #' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
#' \dontrun{ #' \donttest{
#' rawData <- getWebServiceData(obs_url) #' rawData <- getWebServiceData(obs_url)
#' } #' }
getWebServiceData <- function(obs_url, ...){ getWebServiceData <- function(obs_url, ...){
......
...@@ -19,7 +19,7 @@ ...@@ -19,7 +19,7 @@
#' @importFrom xml2 xml_attr #' @importFrom xml2 xml_attr
#' @importFrom xml2 xml_find_first #' @importFrom xml2 xml_find_first
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' obs_url <- paste("http://cida.usgs.gov/ngwmn_cache/sos?request=GetObservation", #' obs_url <- paste("http://cida.usgs.gov/ngwmn_cache/sos?request=GetObservation",
#' "service=SOS","version=2.0.0", #' "service=SOS","version=2.0.0",
#' "observedProperty=urn:ogc:def:property:OGC:GroundWaterLevel", #' "observedProperty=urn:ogc:def:property:OGC:GroundWaterLevel",
...@@ -144,7 +144,7 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){ ...@@ -144,7 +144,7 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
#' "endDT=2014-09-08", #' "endDT=2014-09-08",
#' "statCd=00003", #' "statCd=00003",
#' "parameterCd=00060",sep="&") #' "parameterCd=00060",sep="&")
#' \dontrun{ #' \donttest{
#' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC") #' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
#' } #' }
importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") { importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
#' #'
#' obs_url <- constructNWISURL(site_id,property, #' obs_url <- constructNWISURL(site_id,property,
#' startDate,endDate,"dv",format="tsv") #' startDate,endDate,"dv",format="tsv")
#' \dontrun{ #' \donttest{
#' data <- importRDB1(obs_url) #' data <- importRDB1(obs_url)
#' #'
#' urlMultiPcodes <- constructNWISURL("04085427",c("00060","00010"), #' urlMultiPcodes <- constructNWISURL("04085427",c("00060","00010"),
......
...@@ -26,7 +26,7 @@ ...@@ -26,7 +26,7 @@
#' # These examples require an internet connection to run #' # These examples require an internet connection to run
#' #'
#' ## Examples take longer than 5 seconds: #' ## Examples take longer than 5 seconds:
#' \dontrun{ #' \donttest{
#' rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '') #' rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
#' #'
#' rawSample <- importWQP(rawSampleURL) #' rawSample <- importWQP(rawSampleURL)
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
#' offering <- '00003' #' offering <- '00003'
#' property <- '00060' #' property <- '00060'
#' obs_url <- constructNWISURL(site_id,property,startDate,endDate,'dv') #' obs_url <- constructNWISURL(site_id,property,startDate,endDate,'dv')
#' \dontrun{ #' \donttest{
#' data <- importWaterML1(obs_url, asDateTime=TRUE) #' data <- importWaterML1(obs_url, asDateTime=TRUE)
#' #'
#' groundWaterSite <- "431049071324301" #' groundWaterSite <- "431049071324301"
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#' @importFrom dplyr mutate #' @importFrom dplyr mutate
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' #one site #' #one site
#' site <- "USGS.430427089284901" #' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNdata(siteNumbers = site, service = "observation") #' oneSite <- readNGWMNdata(siteNumbers = site, service = "observation")
...@@ -114,7 +114,7 @@ readNGWMNdata <- function(service, ..., asDateTime = TRUE, tz = "UTC"){ ...@@ -114,7 +114,7 @@ readNGWMNdata <- function(service, ..., asDateTime = TRUE, tz = "UTC"){
#' @export #' @export
#' #'
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' #one site #' #one site
#' site <- "USGS.430427089284901" #' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNlevels(siteNumbers = site) #' oneSite <- readNGWMNlevels(siteNumbers = site)
...@@ -151,7 +151,7 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){ ...@@ -151,7 +151,7 @@ readNGWMNlevels <- function(siteNumbers, asDateTime = TRUE, tz = "UTC"){
#' dec_lat_va, dec_lon_va \tab numeric \tab Site latitude and longitude \cr #' dec_lat_va, dec_lon_va \tab numeric \tab Site latitude and longitude \cr
#' } #' }
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' #one site #' #one site
#' site <- "USGS.430427089284901" #' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNsites(siteNumbers = site) #' oneSite <- readNGWMNsites(siteNumbers = site)
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
#' @seealso \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}, \code{\link{importRDB1}} #' @seealso \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}, \code{\link{importRDB1}}
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' # Examples not run for time considerations #' # Examples not run for time considerations
#' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv") #' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv")
#' instFlow <- readNWISdata(sites="05114000", service="iv", #' instFlow <- readNWISdata(sites="05114000", service="iv",
......
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
#' startDate <- '2012-01-01' #' startDate <- '2012-01-01'
#' endDate <- '2012-06-30' #' endDate <- '2012-06-30'
#' pCode <- '00060' #' pCode <- '00060'
#' \dontrun{ #' \donttest{
#' rawDailyQ <- readNWISdv(site_id,pCode, startDate, endDate) #' rawDailyQ <- readNWISdv(site_id,pCode, startDate, endDate)
#' rawDailyQAndTempMeanMax <- readNWISdv(site_id,c('00010','00060'), #' rawDailyQAndTempMeanMax <- readNWISdv(site_id,c('00010','00060'),
#' startDate, endDate, statCd=c('00001','00003')) #' startDate, endDate, statCd=c('00001','00003'))
......
...@@ -80,7 +80,7 @@ ...@@ -80,7 +80,7 @@
#' startDate <- '2010-01-01' #' startDate <- '2010-01-01'
#' endDate <- '' #' endDate <- ''
#' parameterCd <- c('34247','30234','32104','34220') #' parameterCd <- c('34247','30234','32104','34220')
#' \dontrun{ #' \donttest{
#' rawNWISqwData <- readNWISqw(site_ids,parameterCd,startDate,endDate) #' rawNWISqwData <- readNWISqw(site_ids,parameterCd,startDate,endDate)
#' rawNWISqwDataReshaped <- readNWISqw(site_ids,parameterCd, #' rawNWISqwDataReshaped <- readNWISqw(site_ids,parameterCd,
#' startDate,endDate,reshape=TRUE) #' startDate,endDate,reshape=TRUE)
......
...@@ -60,7 +60,7 @@ ...@@ -60,7 +60,7 @@
#' } #' }
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' siteINFO <- readNWISsite('05114000') #' siteINFO <- readNWISsite('05114000')
#' siteINFOMulti <- readNWISsite(c('05114000','09423350')) #' siteINFOMulti <- readNWISsite(c('05114000','09423350'))
#' } #' }
......
...@@ -53,7 +53,7 @@ ...@@ -53,7 +53,7 @@
#' parameterCd <- '00060' #' parameterCd <- '00060'
#' startDate <- "2014-10-10" #' startDate <- "2014-10-10"
#' endDate <- "2014-10-10" #' endDate <- "2014-10-10"
#' \dontrun{ #' \donttest{
#' rawData <- readNWISuv(site_id,parameterCd,startDate,endDate) #' rawData <- readNWISuv(site_id,parameterCd,startDate,endDate)
#' #'
#' rawData_today <- readNWISuv(site_id, parameterCd, Sys.Date(),Sys.Date()) #' rawData_today <- readNWISuv(site_id, parameterCd, Sys.Date(),Sys.Date())
...@@ -131,7 +131,7 @@ readNWISuv <- function (siteNumbers,parameterCd,startDate="",endDate="", tz="UTC ...@@ -131,7 +131,7 @@ readNWISuv <- function (siteNumbers,parameterCd,startDate="",endDate="", tz="UTC
#' @export #' @export
#' @examples #' @examples
#' site_ids <- c('01594440','040851325') #' site_ids <- c('01594440','040851325')
#' \dontrun{ #' \donttest{
#' data <- readNWISpeak(site_ids) #' data <- readNWISpeak(site_ids)
#' data2 <- readNWISpeak(site_ids, asDateTime=FALSE) #' data2 <- readNWISpeak(site_ids, asDateTime=FALSE)
#' stations<-c("06011000") #' stations<-c("06011000")
...@@ -211,7 +211,7 @@ readNWISpeak <- function (siteNumbers,startDate="",endDate="", asDateTime=TRUE, ...@@ -211,7 +211,7 @@ readNWISpeak <- function (siteNumbers,startDate="",endDate="", asDateTime=TRUE,
#' @export #' @export
#' @examples #' @examples
#' site_id <- '01594440' #' site_id <- '01594440'
#' \dontrun{ #' \donttest{
#' data <- readNWISrating(site_id, "base") #' data <- readNWISrating(site_id, "base")
#' attr(data, "RATING") #' attr(data, "RATING")
#' } #' }
...@@ -292,7 +292,7 @@ readNWISrating <- function (siteNumber,type="base",convertType = TRUE){ ...@@ -292,7 +292,7 @@ readNWISrating <- function (siteNumber,type="base",convertType = TRUE){
#' @export #' @export
#' @examples #' @examples
#' site_ids <- c('01594440','040851325') #' site_ids <- c('01594440','040851325')
#' \dontrun{ #' \donttest{
#' data <- readNWISmeas(site_ids) #' data <- readNWISmeas(site_ids)
#' Meas05316840 <- readNWISmeas("05316840") #' Meas05316840 <- readNWISmeas("05316840")
#' Meas05316840.ex <- readNWISmeas("05316840",expanded=TRUE) #' Meas05316840.ex <- readNWISmeas("05316840",expanded=TRUE)
...@@ -396,7 +396,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz="UTC", expande ...@@ -396,7 +396,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz="UTC", expande
#' @export #' @export
#' @examples #' @examples
#' site_id <- "434400121275801" #' site_id <- "434400121275801"
#' \dontrun{ #' \donttest{
#' data <- readNWISgwl(site_id, '','') #' data <- readNWISgwl(site_id, '','')
#' sites <- c("434400121275801", "375907091432201") #' sites <- c("434400121275801", "375907091432201")
#' data2 <- readNWISgwl(site_id, '','') #' data2 <- readNWISgwl(site_id, '','')
...@@ -465,7 +465,7 @@ readNWISgwl <- function (siteNumbers,startDate="",endDate="", convertType = TRUE ...@@ -465,7 +465,7 @@ readNWISgwl <- function (siteNumbers,startDate="",endDate="", convertType = TRUE
#' @seealso \code{\link{constructNWISURL}}, \code{\link{importRDB1}} #' @seealso \code{\link{constructNWISURL}}, \code{\link{importRDB1}}
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' x1 <- readNWISstat(siteNumbers=c("02319394"), #' x1 <- readNWISstat(siteNumbers=c("02319394"),
#' parameterCd=c("00060"), #' parameterCd=c("00060"),
#' statReportType="annual") #' statReportType="annual")
...@@ -533,7 +533,7 @@ readNWISstat <- function(siteNumbers, parameterCd, startDate = "", endDate = "", ...@@ -533,7 +533,7 @@ readNWISstat <- function(siteNumbers, parameterCd, startDate = "", endDate = "",
#' #'
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' #All data for a county #' #All data for a county
#' allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny") #' allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny")
#' #'
......
...@@ -93,7 +93,7 @@ ...@@ -93,7 +93,7 @@
#' } #' }
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' nameToUse <- "pH" #' nameToUse <- "pH"
#' pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse) #' pHData <- readWQPdata(siteid="USGS-04024315",characteristicName=nameToUse)
#' pHData_summary <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35), #' pHData_summary <- readWQPdata(bBox=c(-90.10,42.67,-88.64,43.35),
......
...@@ -105,7 +105,7 @@ ...@@ -105,7 +105,7 @@
#' @seealso \code{\link{readWQPdata}}, \code{\link{whatWQPsites}}, #' @seealso \code{\link{readWQPdata}}, \code{\link{whatWQPsites}},
#' \code{\link{readNWISqw}}, and \code{\link{importWQP}} #' \code{\link{readNWISqw}}, and \code{\link{importWQP}}
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' rawPcode <- readWQPqw('USGS-01594440','01075', '', '') #' rawPcode <- readWQPqw('USGS-01594440','01075', '', '')
#' rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '') #' rawCharacteristicName <- readWQPqw('WIDNR_WQX-10032762','Specific conductance', '', '')
#' rawPHsites <- readWQPqw(c('USGS-05406450', 'USGS-05427949','WIDNR_WQX-133040'), 'pH','','') #' rawPHsites <- readWQPqw(c('USGS-05406450', 'USGS-05427949','WIDNR_WQX-133040'), 'pH','','')
......
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
#' siteWithTwo <- '01480015' #' siteWithTwo <- '01480015'
#' startDate <- "2012-09-01" #' startDate <- "2012-09-01"
#' endDate <- "2012-10-01" #' endDate <- "2012-10-01"
#' \dontrun{ #' \donttest{
#' url2 <- constructNWISURL(siteWithTwo, "00060",startDate,endDate,'dv') #' url2 <- constructNWISURL(siteWithTwo, "00060",startDate,endDate,'dv')
#' twoResults <- importWaterML1(url2,TRUE) #' twoResults <- importWaterML1(url2,TRUE)
#' twoResults <- renameNWISColumns(twoResults) #' twoResults <- renameNWISColumns(twoResults)
......
...@@ -15,7 +15,7 @@ ...@@ -15,7 +15,7 @@
#' #'
#'@examples #'@examples
#' #'
#'\dontrun{ #'\donttest{
#'setAccess('internal') #'setAccess('internal')
#' #'
#'setAccess('public') #'setAccess('public')
......
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
#' } #' }
#' @export #' @export
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' availableData <- whatNWISdata(siteNumber = '05114000') #' availableData <- whatNWISdata(siteNumber = '05114000')
#' # To find just unit value ('instantaneous') data: #' # To find just unit value ('instantaneous') data:
#' uvData <- whatNWISdata(siteNumber = '05114000',service="uv") #' uvData <- whatNWISdata(siteNumber = '05114000',service="uv")
......
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
#' @importFrom xml2 xml_attr #' @importFrom xml2 xml_attr
#' #'
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665") #' siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
#' oneSite <- whatNWISsites(sites="05114000") #' oneSite <- whatNWISsites(sites="05114000")
#' } #' }
......
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
#' @export #' @export
#' @import utils #' @import utils
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' site1 <- whatWQPsamples(siteid="USGS-01594440") #' site1 <- whatWQPsamples(siteid="USGS-01594440")
#' #'
#' type <- "Stream" #' type <- "Stream"
...@@ -51,7 +51,7 @@ whatWQPsamples <- function(...){ ...@@ -51,7 +51,7 @@ whatWQPsamples <- function(...){
#' @export #' @export
#' @import utils #' @import utils
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' #'
#' type <- "Stream" #' type <- "Stream"
#' sites <- whatWQPmetrics(countycode="US:55:025",siteType=type) #' sites <- whatWQPmetrics(countycode="US:55:025",siteType=type)
...@@ -94,7 +94,7 @@ whatWQPmetrics <- function(...){ ...@@ -94,7 +94,7 @@ whatWQPmetrics <- function(...){
#' @export #' @export
#' @import utils #' @import utils
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' site1 <- whatWQPdata(siteid="USGS-01594440") #' site1 <- whatWQPdata(siteid="USGS-01594440")
#' #'
#' type <- "Stream" #' type <- "Stream"
......
...@@ -50,7 +50,7 @@ ...@@ -50,7 +50,7 @@
#' @export #' @export
#' @import utils #' @import utils
#' @examples #' @examples
#' \dontrun{ #' \donttest{
#' site1 <- whatWQPsites(siteid="USGS-01594440") #' site1 <- whatWQPsites(siteid="USGS-01594440")
#' #'
#' type <- "Stream" #' 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