#' @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"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.