change setup for getting proof auth token getwilds/proofr#2

R/http.R

@@ -3,13 +3,13 @@
 #' @keywords internal
 #' @author Scott Chamberlain
 http_get <- function(url, as = NULL, ...) {
-  result <- httr::GET(url, ...)
+  result <- httr::GET(url, try_proof_header(), ...)
   httr::stop_for_status(result)
   httr::content(result, as = as)
 }
 
 http_post <- function(url, as = NULL, ...) {
-  result <- httr::POST(url, ...)
+  result <- httr::POST(url, try_proof_header(), ...)
   httr::stop_for_status(result)
   httr::content(result, as = as)
 }
@@ -24,8 +24,20 @@ check_url <- function() {
   x <- Sys.getenv("CROMWELLURL")
   if (identical(x, "")) {
     stop("Set the env var `CROMWELLURL`. ",
-      "See ?cromwellSettings",
+      "See ?cromwell_settings",
       call. = FALSE
     )
   }
 }
+
+#' Get header for PROOF API calls
+#'
+#' @keywords internal
+#' @return A `request` S3 class with the HTTP header that can be passed
+#' to `httr::GET()`, `httr::POST()`, etc.
+try_proof_header <- function() {
+  token <- Sys.getenv("PROOF_TOKEN", "")
+  if (nzchar(token) && nchar(token) > 30) {
+    httr::add_headers(Authorization = paste0("Bearer ", token))
+  }
+}