R/authorization.R

In Cloud9Smart/sell: CW Sell API Client

#' Auth
#'
#' Authenticate request.
#'
#' @param path Path to enviornment variables set with `usethis::edit_r_envior()`.
#'
#' @return Header
#' @export
sell_auth <- function(path = NULL) {

  auth_header <- openssl::base64_encode(
    paste0(Sys.getenv("SELL_KEY"), "+", Sys.getenv("SELL_USER"),
           ":", Sys.getenv("SELL_PW")))

  httr::add_headers('Authorization' = paste0('Basic ', auth_header))

}

#' Sell base url
#'
#' Base url for Sell api.
#'
#' @return Base url for all api calls.
#' @export
base_url <- function() {
  'https://sellapi.quosalsell.com'
}