R/makeBodyString.R

In jhudsl/shinyauth: Allows easy and fast access to arbitrary OAUTH 2.0 apis from shinyapps.

#' Assembles a body for a post request to retreive the user's token.
#' @param key your personal api key
#' @param redirect_uri your apps redirect URL (aka where you app lives on the internet or localhost)
#' @param auth_code Code that was retreived from an earlier authorization request client-side.
#' @return A string formatted to be plopped into a \code(httr::POST) request.
#' @export
#' @examples
#' makeBodyString(key= "fhauh108', redirect_uri = "localhost:1410", authcode = "08oiweifoaoihfoijfaodjf")
makeBodyString <- function(key, redirect_uri, auth_code){
  sprintf("client_id=%s&grant_type=authorization_code&redirect_uri=%s&code=%s",
          key, redirect_uri, auth_code)
}