Merge pull request #2 from thongsav-usgs/master

update extremes signatures to take prefetched token

R/extremes.R

@@ -22,13 +22,20 @@ setMethod("extremes", signature = c("list", "character"),
           }
 )
 
+
 #'@importFrom httr GET
-setMethod("extremes", signature = c("character", "character"), 
-          definition = function(data, output,...) {
-            cat('this function authenticates, goes out and gets data, and then calls the other one\n')
-            
-            token <- paste0('Bearer ', authenticateUser(...))
-            ts_list <- getJSON(url = data, auth = token)
+setMethod("extremes", signature = c("character", "character", "character"), 
+          definition = function(data, output, token) {
+            cat('this function uses the token to get data, and then calls the other one\n')
+
+            authHeader <- paste0("Bearer " , token)
+            ts_list <- getJSON(url = data, auth = authHeader)
             extremes(ts_list,output)
           }
-)
+)
+
+
+
+
+
+

man/extremes.Rd

@@ -4,7 +4,7 @@
 \alias{extremes}
 \title{extremes report}
 \usage{
-extremes(data, output, ...)
+extremes(data, output, token)
 }
 \arguments{
 \item{data}{local data (as list) or URL}