add homekeeper stack

2026-07-06 19:25:38 +02:00
commit 58983e6855
90 changed files with 6816 additions and 0 deletions
@@ -0,0 +1,88 @@
+.api_req <- function(api, path) {
+  httr2::request(paste0(api$base_url, path)) |>
+    httr2::req_auth_basic(api$user, api$pass)
+}
+
+.api_check <- function(resp, path) {
+  status <- httr2::resp_status(resp)
+  if (status >= 400) {
+    body <- tryCatch(httr2::resp_body_string(resp), error = function(e) "")
+    log_error("api_error", path = path, status = status, body = body)
+  }
+  httr2::resp_check_status(resp)
+}
+
+api_get <- function(api, path, query = NULL) {
+  req <- .api_req(api, path)
+  if (!is.null(query) && length(query) > 0) {
+    query <- Filter(Negate(is.null), query)
+    if (length(query) > 0) req <- do.call(httr2::req_url_query, c(list(req), query))
+  }
+  resp <- httr2::req_error(req, is_error = \(r) FALSE) |> httr2::req_perform()
+  if (httr2::resp_status(resp) == 404) return(data.frame())
+  .api_check(resp, path)
+  result <- httr2::resp_body_json(resp, simplifyVector = TRUE)
+  if (is.null(result) || length(result) == 0) return(data.frame())
+  if (is.data.frame(result)) return(result)
+  as.data.frame(result, stringsAsFactors = FALSE)
+}
+
+api_get_one <- function(api, path, query = NULL) {
+  req <- .api_req(api, path)
+  if (!is.null(query) && length(query) > 0) {
+    query <- Filter(Negate(is.null), query)
+    if (length(query) > 0) req <- do.call(httr2::req_url_query, c(list(req), query))
+  }
+  resp <- httr2::req_error(req, is_error = \(r) FALSE) |> httr2::req_perform()
+  if (httr2::resp_status(resp) %in% c(404, 204)) return(data.frame())
+  .api_check(resp, path)
+  result <- httr2::resp_body_json(resp, simplifyVector = FALSE)
+  if (is.null(result) || length(result) == 0) return(data.frame())
+  as.data.frame(lapply(result, function(x) if (is.null(x)) NA else x), stringsAsFactors = FALSE)
+}
+
+api_post <- function(api, path, body = list()) {
+  log_debug("api_post", path = path)
+  resp <- .api_req(api, path) |>
+    httr2::req_body_json(body) |>
+    httr2::req_error(is_error = \(r) FALSE) |>
+    httr2::req_perform()
+  .api_check(resp, path)
+  if (httr2::resp_content_type(resp) == "" || httr2::resp_status(resp) == 204)
+    return(invisible(NULL))
+  result <- httr2::resp_body_json(resp, simplifyVector = FALSE)
+  if (is.null(result)) return(invisible(NULL))
+  result
+}
+
+api_put <- function(api, path, body = list()) {
+  log_debug("api_put", path = path)
+  resp <- .api_req(api, path) |>
+    httr2::req_method("PUT") |>
+    httr2::req_body_json(body) |>
+    httr2::req_error(is_error = \(r) FALSE) |>
+    httr2::req_perform()
+  .api_check(resp, path)
+  invisible(NULL)
+}
+
+api_patch <- function(api, path, body = list()) {
+  log_debug("api_patch", path = path)
+  resp <- .api_req(api, path) |>
+    httr2::req_method("PATCH") |>
+    httr2::req_body_json(body) |>
+    httr2::req_error(is_error = \(r) FALSE) |>
+    httr2::req_perform()
+  .api_check(resp, path)
+  invisible(NULL)
+}
+
+api_delete <- function(api, path) {
+  log_debug("api_delete", path = path)
+  resp <- .api_req(api, path) |>
+    httr2::req_method("DELETE") |>
+    httr2::req_error(is_error = \(r) FALSE) |>
+    httr2::req_perform()
+  .api_check(resp, path)
+  invisible(NULL)
+}