R/client.R

In Cloud9Smart/sell: CW Sell API Client

#' GET sell
#'
#' Get request for building new endpoints.
#'
#' @param endpoint resource
#' @param ... Additional query arguments
#'
#' @return Tibble
#' @export
get_sell <- function(endpoint = NULL, verbose = FALSE, ...) {

  q = list(...)
  #print(q)
  sell_resp <- httr::GET(paste0(base_url(), endpoint),
                         sell_auth(),
                         query = q,
                         if (verbose) httr::verbose()
                         )

  httr::stop_for_status(sell_resp)
  process_sell(sell_resp)

}




#' Process sell
#'
#' Process get requests
#'
#' @param sell_resp Response from get call
process_sell <- function(sell_resp = NULL) {

  jsonlite::fromJSON(httr::content(sell_resp, "text"))

}