Skip to content
Snippets Groups Projects
Commit b6969570 authored by Laura A DeCicco's avatar Laura A DeCicco
Browse files

Renamed getGeneralWQPData

parent 95b34993
No related branches found
No related tags found
1 merge request!15Fixed some bugs, changed getGeneralWQPData to getWQPData
#' 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
% 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}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment