R/symplurToken.R

In symplur/SympluR: Analyze Healthcare Social Media Data from the 'Symplur' API

#' Symplur API - Token
#'
#' @keywords token
#' @export
#' @examples
#' symplurToken()
#'
symplurToken <- function(){
  Sys.setenv(TZ="UTC")
  token <- Sys.getenv('SYMPLUR_TOKEN')
  config <- symplurConfig()

  if (identical(token, "")) {
    if (identical(Sys.getenv('SYMPLUR_clientId'), "")) {
      SymplurClientId <- readline("What is your Symplur API clientId? If none, just hit enter to try #LCSMDemoData: ")
      if (identical(SymplurClientId, "")) {
          SymplurClientId = config$demoClientId
      }
      Sys.setenv(SYMPLUR_clientId = SymplurClientId)
    }
    if (identical(Sys.getenv('SYMPLUR_clientSecret'), "")) {
      SymplurClientSecret <- readline("What is your Symplur API clientSecret? If none, just hit enter to try #LCSMDemoData: ")
      if (identical(SymplurClientSecret, "")) {
          SymplurClientSecret = config$demoClientSecret
      }
      Sys.setenv(SYMPLUR_clientSecret = SymplurClientSecret)
    }
    baseUrl = config$baseUrl
    clientId = Sys.getenv('SYMPLUR_clientId')
    clientSecret = Sys.getenv('SYMPLUR_clientSecret')
    endpoint = paste(baseUrl, "oauth/token", sep="")
    secret <- jsonlite::base64_enc(paste(clientId, clientSecret, sep = ":"))
    req <- httr::POST(endpoint,
      httr::add_headers(
      "Authorization" = paste("Basic", gsub("\n", "", secret)),
      "Content-Type" = "application/x-www-form-urlencoded;charset=UTF-8"
      ),
      body = "grant_type=client_credentials"
    );
    httr::stop_for_status(req, "Authenticate with Symplur")
    token <- httr::content(req)$access_token
    Sys.setenv(SYMPLUR_TOKEN = token)
  }
  return(token)
}