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,45 @@
+db_queens_list <- function(db, colony_id = NULL) {
+  api_get(db, "/v1/queens", list(colony_id = colony_id))
+}
+
+db_queens_get <- function(db, id) {
+  api_get_one(db, paste0("/v1/queens/", id))
+}
+
+db_queens_insert <- function(db, colony_id, year = NA, breed = NA,
+                             origin_colony_id = NA, marked_color = NA,
+                             notes = NA, introduced_at = NA) {
+  result <- api_post(db, "/v1/queens", list(
+    colony_id = colony_id,
+    year = year,
+    breed = breed,
+    origin_colony_id = origin_colony_id,
+    marked_color = marked_color,
+    notes = notes,
+    introduced_at = introduced_at
+  ))
+  result$id
+}
+
+db_queens_update <- function(db, id, colony_id, year = NA, breed = NA,
+                             origin_colony_id = NA, marked_color = NA,
+                             notes = NA, introduced_at = NA, superseded_at = NA) {
+  api_put(db, paste0("/v1/queens/", id), list(
+    colony_id = colony_id,
+    year = year,
+    breed = breed,
+    origin_colony_id = origin_colony_id,
+    marked_color = marked_color,
+    notes = notes,
+    introduced_at = introduced_at,
+    superseded_at = superseded_at
+  ))
+}
+
+db_queens_supersede <- function(db, id) {
+  api_post(db, paste0("/v1/queens/", id, "/supersede"))
+}
+
+db_queens_delete <- function(db, id) {
+  api_delete(db, paste0("/v1/queens/", id))
+}