R/http-helpers.R

In sensibo.sky: Access to 'Sensibo Sky' API V2 for Air Conditioners Remote Control

# Auto-Generated by `apipkgen` package:
# See apipkgen docs for help

xGET <- function(url, ...) {
  content.list <- jsonlite::fromJSON(xVERB("GET", url, ...), flatten = TRUE, simplifyDataFrame = FALSE)
  if(content.list$status != "success") stop("Error performing the GET request to Sensibo API.")
  return(content.list$result)
}

xPOST <- function(url, ..., body = NULL, encode = "json") {
  body <- ct(body)
  content.list <- jsonlite::fromJSON(xVERB("POST", url, ..., body = body, encode = encode), flatten = TRUE, simplifyDataFrame = FALSE)
  if(content.list$status != "success") stop("Error performing the POST request to Sensibo API.")
  return(content.list$result)
}

xPUT <- function(url, ...) {
  xVERB("PUT", url, ...)
}

xVERB <- function(verb, url, ...) {
  res <- httr::VERB(verb, url, ...)
  httr::stop_for_status(res)
  httr::content(res, as = "text", encoding = "UTF-8")
}