R/cvsites.R

In NCRN/npscv: Access to NPS common view data.

#' @include filterpaste.R
#' 
#' @title cvsites 
#' 
#' @description Returns the name, site code and other data for monitoring sites with data avaialable through the NPS common view
#' 
#' @importFrom jsonlite fromJSON
#' 
#' @param fetch  Indicates what you wish to retrive from the common view data service. Options are:
#' \describe{
#' \item{"code"}{The default. Returns the code for the site}
#' \item{"name"}{Returns the full name of the site}
#' \item{"full}{Returns the: site name, site code, network code, network name, park code, park name, USGS site code, USGS nearest site code, site type, site latitude, site longitude, and description.}
#' \item{"all"}{Returns all data from the "Site" table of the common view.}
#' }
#' @param network  A network four letter code in quotes. Only data on parks in that network will be returned.
#' @param park A park four letter code in quotes. Only data from that park will be returned.
#' @param data Indicates the type of data you are interesed in. Currently has no function as only water monitoring data can be retrieved.
#'  
#' @return Either a \code{vector} with site codes or names, or a \code{data.frame} with all network data.
#'  
#' @export






cvsites<-function(fetch="code",network=NA, park=NA, data="water"){  
  
  base<-"http://irmadevservices.nps.gov/WaterQualityDataServices/OData/Sites"
  
  filtnames<-c("NetworkCode","ParkCode")[!is.na(c(network,park))]
  filtvalues<-c(network,park)[!is.na(c(network,park))]
  
  optfilter<-filterpaste(punct="?", names=filtnames, values=filtvalues)
  
  selectpunct<-if(all(is.na(c(network,park)))) "?" else "&"

  optselect<-switch(fetch,
        code=paste0(selectpunct,"$select=SiteCode"),
        name=paste0(selectpunct,"$select=SiteName"),
        full=paste0(selectpunct,"$select=SiteName,SiteCode,NetworkCode,NetworkName,ParkCode,ParkName,USGSCodeSite,USGSCodeNearest,SiteType,SiteLat,SiteLon,Description"),
        all=""
  )  
             fromJSON(url(paste0(base,optfilter,optselect)),flatten=TRUE)[[2]]  
}