R/ss_api.R

In anthonypileggi/shipstationr: Use the ShipStation API

#' Make a ShipStation API call
#' @param path path to api endpoint
#' @param fun API function (GET or POST)
#' @export
ss_api <- function(path, fun = httr::GET, ...) {

  # setup creds
  if (nchar(Sys.getenv("SHIPSTATION_API_KEY")) == 0 | nchar(Sys.getenv("SHIPSTATION_API_SECRET")) == 0)
    stop("You must set environment variables: SHIPSTATION_API_KEY, SHIPSTATION_API_SECRET", call. = FALSE)

  # call api
  url <- httr::modify_url("https://ssapi.shipstation.com", path = path)
  auth <- httr::authenticate(Sys.getenv("SHIPSTATION_API_KEY"), Sys.getenv("SHIPSTATION_API_SECRET"))
  if (identical(fun, httr::POST))
    response <- fun(url, auth, httr::content_type_json(), body = list(...), encode = "json")
  if (identical(fun, httr::GET))
    response <- fun(url, auth, query = list(...))

  # check status code
  if (httr::status_code(response) != 200) {
    stop(
      sprintf(
        "ShipStation API request failed [%s]\n%s\n<%s>",
        httr::status_code(response)
      ),
      call. = FALSE
    )
  }

  httr::content(response)
}