R/api_logout.R

In JestonBlu/RobinHood: Interface for the RobinHood.com No Commission Investing Platform

#' RobinHood API: Logout
#'
#' Backend function called by logout(). Sends a logout call and disables your oauth2 token.
#'
#' @param RH object of class RobinHood
#' @import httr magrittr
#' @export
api_logout <- function(RH) {

  detail <- paste("?client_id=",
                  RH$api_request.client_id,
                  "&token=",
                  RH$api_response.refresh_token,
                  sep = "")

  # URL
  url <- paste(RobinHood::api_endpoints("revoke_token"), detail, sep = "")

  dta <- httr::POST(url)
  httr::stop_for_status(dta)

  dta <- dta %>%
    content(type = "json") %>%
    rawToChar()

  return(dta)

}