#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

Diff for: 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]", 

Diff for: 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
 ===============
 

Diff for: 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())