#83 fix gist_auth

httr::oauth2.0_token doesnt return token in header slot anymore
change how token is accessed
add at return for the fxn to tell users what should be returned
bump dev version
add news item

Author: sckott

DESCRIPTION

@@ -10,7 +10,7 @@ Description: Work with 'GitHub' 'gists' from 'R' (e.g.,
     'gist' 'commits', and get rate limit information when 'authenticated'. Some
     requests require authentication and some do not. 'Gists' website: 
     <https://gist.github.com/>.
-Version: 0.9.0.91
+Version: 0.9.0.93
 Authors@R: c(
     person("Scott", "Chamberlain", role = c("aut", "cre"), 
         email = "[email protected]", 

NEWS.md

@@ -1,3 +1,11 @@
+gistr in development
+===============
+
+### BUG FIXES
+
+* fix `gist_auth()`: at some point `httr::oauth2.0_token` stopped returning the token in the `headers` slot; can't figure out when this change happened; fix is to get the token from a different place in the returned object; changes to `gist_auth()` to access that new path to the token (#83)
+
+
 gistr 0.9.0
 ===============
 

R/gist_auth.R

@@ -19,18 +19,21 @@
 #' @param app An [httr::oauth_app()] for GitHub. The default uses an 
 #' application `gistr_oauth` created by Scott Chamberlain.
 #' @param reauth (logical) Force re-authorization?
+#' @return a named list, with a single slot for `Authorization`, with a single
+#' element with the token - this is the expected format needed when passed
+#' down to the http request
 #' @examples \dontrun{
 #' gist_auth()
 #' }
 
 gist_auth <- function(app = gistr_app, reauth = FALSE) {
 
   if (exists("auth_config", envir = cache) && !reauth) {
-    return(undo(cache$auth_config$headers))
+    return(auth_header(cache$auth_config$auth_token$credentials$access_token))
   }
   pat <- Sys.getenv("GITHUB_PAT", "")
   if (!identical(pat, "")) {
-    auth_config <- httr::add_headers(Authorization = paste0("token ", pat))
+    auth_config <- list(auth_token=list(credentials=list(access_token=pat)))
   } else if (!interactive()) {
     stop("In non-interactive environments, please set GITHUB_PAT env to a GitHub",
          " access token (https://help.github.com/articles/creating-an-access-token-for-command-line-use)",
@@ -41,10 +44,10 @@ gist_auth <- function(app = gistr_app, reauth = FALSE) {
     auth_config <- httr::config(token = token)
   }
   cache$auth_config <- auth_config
-  undo(auth_config$headers)
+  auth_header(auth_config$auth_token$credentials$access_token)
 }
 
-undo <- function(x) unclass(as.list(unclass(x)))
+auth_header <- function(x) list(Authorization = paste0("token ", x))
 
 cache <- new.env(parent = emptyenv())