R/access_token.R

In filipwastberg/meltwateR: An API Client for Meltwaters media monitoring API

#' @title Access Meltwater token
#' @description access_token() generates a Bearer token that is saved to your .Renvironment file. It is valid for 1 hour. If you run out of time, just run the function again.
#'
#' @import httr
#' 
#' @export

access_token <- function(){
token <- POST(url = "https://api.meltwater.com/oauth2/access_token",
     authenticate(user = Sys.getenv("meltwater_client_id"), password = Sys.getenv("meltwater_client_secret")),
     add_headers('user-key' =  Sys.getenv("meltwater_key"),
                 'content-type' = "application/x-www-form-urlencoded"),
     body = 'grant_type=client_credentials&scope=search')

parsed_token <- jsonlite::fromJSON(content(token, "text"), simplifyVector = FALSE)

token <- paste("Bearer", parsed_token$access_token)

Sys.setenv("meltwater_token" = token)

return(Sys.getenv("meltwater_token"))
}