straw dog for access pattern

NAMESPACE

@@ -24,6 +24,7 @@ export(readNWISuv)
 export(readWQPdata)
 export(readWQPqw)
 export(renameNWISColumns)
+export(setAccess)
 export(stateCd)
 export(stateCdLookup)
 export(whatNWISdata)

R/AAA.R

+pkg.env <- new.env()
+.onLoad = function(libname, pkgname){
+  setAccess('public')
+}
\ No newline at end of file

R/setAccess.R

+#'Set data endpoint
+#'
+#'access Indicate which dataRetrieval access code
+#' you want to use options: \code{c('public','internal')}
+#'
+#' @param access code for data access. Either "public" or "internal"
+#'
+#'@author Luke Winslow, Jordan S Read
+#'
+#'@examples
+#'
+#'\dontrun{
+#'setAccess('internal')
+#'
+#'setAccess('public')
+#'
+#'}
+#'
+#' @export
+setAccess = function(access="public"){
+  
+  access = match.arg(access, c('public','internal'))
+  
+  if(access=="internal"){
+    access.param = '?Access=3'
+    message('setting access to internal')
+  }else {
+    access.param = '?Access=1'
+  }
+  
+  pkg.env$waterservices = paste0("http://waterservices.usgs.gov/nwis/site/", access.param)
+  
+  
+}
+
+drURL = function(base.name, params){
+  return(paste0(pkg.env[[base.name]], params))
+}
\ No newline at end of file

R/whatNWISsites.R

@@ -40,7 +40,7 @@ whatNWISsites <- function(...){
   names(values)[names(values) == "siteNumber"] <- "sites"
   names(values)[names(values) == "siteNumbers"] <- "sites"
   
-  baseURL <- "http://waterservices.usgs.gov/nwis/site/?format=mapper&"
+  baseURL <- drURL('waterservices',"&format=mapper&")
   urlCall <- paste(baseURL,
                    urlCall,sep = "")
 

man/setAccess.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/setAccess.R
+\name{setAccess}
+\alias{setAccess}
+\title{Set data endpoint}
+\usage{
+setAccess(access = "public")
+}
+\arguments{
+\item{access}{code for data access. Either "public" or "internal"}
+}
+\description{
+access Indicate which dataRetrieval access code
+you want to use options: \code{c('public','internal')}
+}
+\examples{
+
+\dontrun{
+setAccess('internal')
+
+setAccess('public')
+
+}
+
+}
+\author{
+Luke Winslow, Jordan S Read
+}
+

man/whatNWISData.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/whatNWISdata.r
+% Please edit documentation in R/whatNWISData.r
 \name{whatNWISdata}
 \alias{whatNWISdata}
 \title{USGS data availability}