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 @@
#' @importFrom dplyr select
#' @importFrom dplyr everything
#' @examples
#' \dontrun{
#' \donttest{
#' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv")
#' dataTemp <- addWaterYear(dataTemp)
#'
......
......@@ -17,7 +17,7 @@
#' offering <- '00003'
#' property <- '00060'
#' obs_url <- constructNWISURL(siteNumber,property,startDate,endDate,'dv')
#' \dontrun{
#' \donttest{
#' rawData <- getWebServiceData(obs_url)
#' }
getWebServiceData <- function(obs_url, ...){
......
......@@ -19,7 +19,7 @@
#' @importFrom xml2 xml_attr
#' @importFrom xml2 xml_find_first
#' @examples
#' \dontrun{
#' \donttest{
#' 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",
......@@ -144,7 +144,7 @@ importNGWMN <- function(input, asDateTime=FALSE, tz="UTC"){
#' "endDT=2014-09-08",
#' "statCd=00003",
#' "parameterCd=00060",sep="&")
#' \dontrun{
#' \donttest{
#' timesereies <- importWaterML2(URL, asDateTime=TRUE, tz="UTC")
#' }
importWaterML2 <- function(input, asDateTime=FALSE, tz="UTC") {
......
......@@ -56,7 +56,7 @@
#'
#' obs_url <- constructNWISURL(site_id,property,
#' startDate,endDate,"dv",format="tsv")
#' \dontrun{
#' \donttest{
#' data <- importRDB1(obs_url)
#'
#' urlMultiPcodes <- constructNWISURL("04085427",c("00060","00010"),
......
......@@ -26,7 +26,7 @@
#' # These examples require an internet connection to run
#'
#' ## Examples take longer than 5 seconds:
#' \dontrun{
#' \donttest{
#' rawSampleURL <- constructWQPURL('USGS-01594440','01075', '', '')
#'
#' rawSample <- importWQP(rawSampleURL)
......
......@@ -56,7 +56,7 @@
#' offering <- '00003'
#' property <- '00060'
#' obs_url <- constructNWISURL(site_id,property,startDate,endDate,'dv')
#' \dontrun{
#' \donttest{
#' data <- importWaterML1(obs_url, asDateTime=TRUE)
#'
#' groundWaterSite <- "431049071324301"
......
......@@ -15,7 +15,7 @@
#' @importFrom dplyr mutate
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' #one site
#' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNdata(siteNumbers = site, service = "observation")
......@@ -114,7 +114,7 @@ readNGWMNdata <- function(service, ..., asDateTime = TRUE, tz = "UTC"){
#' @export
#'
#' @examples
#' \dontrun{
#' \donttest{
#' #one site
#' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNlevels(siteNumbers = site)
......@@ -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
#' }
#' @examples
#' \dontrun{
#' \donttest{
#' #one site
#' site <- "USGS.430427089284901"
#' oneSite <- readNGWMNsites(siteNumbers = site)
......
......@@ -56,7 +56,7 @@
#' @seealso \code{\link{renameNWISColumns}}, \code{\link{importWaterML1}}, \code{\link{importRDB1}}
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' # Examples not run for time considerations
#' dataTemp <- readNWISdata(stateCd="OH",parameterCd="00010", service="dv")
#' instFlow <- readNWISdata(sites="05114000", service="iv",
......
......@@ -42,7 +42,7 @@
#' 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'))
......
......@@ -80,7 +80,7 @@
#' 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)
......
......@@ -60,7 +60,7 @@
#' }
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' siteINFO <- readNWISsite('05114000')
#' siteINFOMulti <- readNWISsite(c('05114000','09423350'))
#' }
......
......@@ -53,7 +53,7 @@
#' 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())
......@@ -131,7 +131,7 @@ readNWISuv <- function (siteNumbers,parameterCd,startDate="",endDate="", tz="UTC
#' @export
#' @examples
#' site_ids <- c('01594440','040851325')
#' \dontrun{
#' \donttest{
#' data <- readNWISpeak(site_ids)
#' data2 <- readNWISpeak(site_ids, asDateTime=FALSE)
#' stations<-c("06011000")
......@@ -211,7 +211,7 @@ readNWISpeak <- function (siteNumbers,startDate="",endDate="", asDateTime=TRUE,
#' @export
#' @examples
#' site_id <- '01594440'
#' \dontrun{
#' \donttest{
#' data <- readNWISrating(site_id, "base")
#' attr(data, "RATING")
#' }
......@@ -292,7 +292,7 @@ readNWISrating <- function (siteNumber,type="base",convertType = TRUE){
#' @export
#' @examples
#' site_ids <- c('01594440','040851325')
#' \dontrun{
#' \donttest{
#' data <- readNWISmeas(site_ids)
#' Meas05316840 <- readNWISmeas("05316840")
#' Meas05316840.ex <- readNWISmeas("05316840",expanded=TRUE)
......@@ -396,7 +396,7 @@ readNWISmeas <- function (siteNumbers,startDate="",endDate="", tz="UTC", expande
#' @export
#' @examples
#' site_id <- "434400121275801"
#' \dontrun{
#' \donttest{
#' data <- readNWISgwl(site_id, '','')
#' sites <- c("434400121275801", "375907091432201")
#' data2 <- readNWISgwl(site_id, '','')
......@@ -465,7 +465,7 @@ readNWISgwl <- function (siteNumbers,startDate="",endDate="", convertType = TRUE
#' @seealso \code{\link{constructNWISURL}}, \code{\link{importRDB1}}
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' x1 <- readNWISstat(siteNumbers=c("02319394"),
#' parameterCd=c("00060"),
#' statReportType="annual")
......@@ -533,7 +533,7 @@ readNWISstat <- function(siteNumbers, parameterCd, startDate = "", endDate = "",
#'
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' #All data for a county
#' allegheny <- readNWISuse(stateCd = "Pennsylvania",countyCd = "Allegheny")
#'
......
......@@ -93,7 +93,7 @@
#' }
#' @export
#' @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),
......
......@@ -105,7 +105,7 @@
#' @seealso \code{\link{readWQPdata}}, \code{\link{whatWQPsites}},
#' \code{\link{readNWISqw}}, and \code{\link{importWQP}}
#' @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','','')
......
......@@ -41,7 +41,7 @@
#' 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)
......
......@@ -15,7 +15,7 @@
#'
#'@examples
#'
#'\dontrun{
#'\donttest{
#'setAccess('internal')
#'
#'setAccess('public')
......
......@@ -48,7 +48,7 @@
#' }
#' @export
#' @examples
#' \dontrun{
#' \donttest{
#' availableData <- whatNWISdata(siteNumber = '05114000')
#' # To find just unit value ('instantaneous') data:
#' uvData <- whatNWISdata(siteNumber = '05114000',service="uv")
......
......@@ -30,7 +30,7 @@
#' @importFrom xml2 xml_attr
#'
#' @examples
#' \dontrun{
#' \donttest{
#' siteListPhos <- whatNWISsites(stateCd="OH",parameterCd="00665")
#' oneSite <- whatNWISsites(sites="05114000")
#' }
......
......@@ -10,7 +10,7 @@
#' @export
#' @import utils
#' @examples
#' \dontrun{
#' \donttest{
#' site1 <- whatWQPsamples(siteid="USGS-01594440")
#'
#' type <- "Stream"
......@@ -51,7 +51,7 @@ whatWQPsamples <- function(...){
#' @export
#' @import utils
#' @examples
#' \dontrun{
#' \donttest{
#'
#' type <- "Stream"
#' sites <- whatWQPmetrics(countycode="US:55:025",siteType=type)
......@@ -94,7 +94,7 @@ whatWQPmetrics <- function(...){
#' @export
#' @import utils
#' @examples
#' \dontrun{
#' \donttest{
#' site1 <- whatWQPdata(siteid="USGS-01594440")
#'
#' type <- "Stream"
......
......@@ -50,7 +50,7 @@
#' @export
#' @import utils
#' @examples
#' \dontrun{
#' \donttest{
#' site1 <- whatWQPsites(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