diff --git a/R/getGeneralWQPData.R b/R/getGeneralWQPData.R deleted file mode 100644 index 4faf41f2c250cf3e906b59b797fecb8d151b30a2..0000000000000000000000000000000000000000 --- a/R/getGeneralWQPData.R +++ /dev/null @@ -1,36 +0,0 @@ -#' General Data Import from Water Quality Portal -#' -#' Imports data from Water Quality Portal web service. This function gets the data from here: \url{http://www.waterqualitydata.us}. -#' because it allows for other agencies rather than the USGS. -#' -#' @param \dots see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options -#' @keywords data import WQP web service -#' @return retval dataframe with first column dateTime, and at least one qualifier and value columns -#' (subsequent qualifier/value columns could follow depending on requested parameter codes) -#' @export -#' @examples -#' nameToUse <- "pH" -#' pHData <- getGeneralWQPData(siteid="USGS-04024315",characteristicName=nameToUse) -getGeneralWQPData <- function(...){ - - matchReturn <- match.call() - - options <- c("bBox","lat","long","within","countrycode","statecode","countycode","siteType","organization", - "siteid","huc","sampleMedia","characteristicType","characteristicName","pCode","activityId", - "startDateLo","startDateHi","mimeType","Zip","providers") - - if(!all(names(matchReturn[-1]) %in% options)) warning(matchReturn[!(names(matchReturn[-1]) %in% options)],"is not a valid query parameter to the Water Quality Portal") - - values <- sapply(matchReturn[-1], function(x) URLencode(as.character(paste(eval(x),collapse="",sep="")))) - - urlCall <- paste(paste(names(values),values,sep="="),collapse="&") - - - baseURL <- "http://www.waterqualitydata.us/Result/search?" - urlCall <- paste(baseURL, - urlCall, - "&mimeType=tsv",sep = "") - retVal <- basicWQPData(urlCall) - return(retVal) - -} \ No newline at end of file diff --git a/man/getGeneralWQPData.Rd b/man/getGeneralWQPData.Rd deleted file mode 100644 index 2823493d861fc09b5dc67c66c32da15a20e87e24..0000000000000000000000000000000000000000 --- a/man/getGeneralWQPData.Rd +++ /dev/null @@ -1,28 +0,0 @@ -% Generated by roxygen2 (4.0.2): do not edit by hand -\name{getGeneralWQPData} -\alias{getGeneralWQPData} -\title{General Data Import from Water Quality Portal} -\usage{ -getGeneralWQPData(...) -} -\arguments{ -\item{\dots}{see \url{www.waterqualitydata.us/webservices_documentation.jsp} for a complete list of options} -} -\value{ -retval dataframe with first column dateTime, and at least one qualifier and value columns -(subsequent qualifier/value columns could follow depending on requested parameter codes) -} -\description{ -Imports data from Water Quality Portal web service. This function gets the data from here: \url{http://www.waterqualitydata.us}. -because it allows for other agencies rather than the USGS. -} -\examples{ -nameToUse <- "pH" -pHData <- getGeneralWQPData(siteid="USGS-04024315",characteristicName=nameToUse) -} -\keyword{WQP} -\keyword{data} -\keyword{import} -\keyword{service} -\keyword{web} -