R/get-token.R

In yizhexu/weatherawhere:

get_token <- function(consumer_key, consumer_secret) {
  # the function send authenticate, http header and body to awhere
  # input of this function is api_key, and api_secret
  # the function will give api access expiration time and an api token
  url_token <- "https://api.awhere.com/oauth/token"

  body <- list(grant_type = "client_credentials")

  response <- httr::POST(url_token,
                         httr::authenticate(consumer_key, consumer_secret, type = "basic"),
                         encode = "form",
                         body = body)

  expire_time <<- Sys.time() + httr::content(response)$expires_in

  cat(ifelse(response$status != 200,
             paste("Get API Access token failed. \nStatus", response$status),
             paste("Get API Access token success. \nAPI Access token will expire at:", expire_time, Sys.timezone(),"\n")))

  token <<- paste0("Bearer ", httr::content(response)$access_token)

  token

}