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,63 @@
+db_inspections_list <- function(db, colony_id) {
+  api_get(db, "/v1/inspections", list(colony_id = colony_id))
+}
+
+db_inspections_get <- function(db, id) {
+  api_get_one(db, paste0("/v1/inspections/", id))
+}
+
+db_inspections_insert <- function(db, colony_id, date, inspector = NA,
+                                   brood_frames = NA, honey_frames = NA,
+                                   food_stores_kg = NA, colony_strength = NA,
+                                   queen_seen = FALSE, eggs_seen = FALSE,
+                                   queen_cells_count = 0L, notes = NA,
+                                   traits = list()) {
+  result <- api_post(db, "/v1/inspections", list(
+    colony_id = colony_id,
+    date = as.character(date),
+    inspector = inspector,
+    brood_frames = brood_frames,
+    honey_frames = honey_frames,
+    food_stores_kg = food_stores_kg,
+    colony_strength = colony_strength,
+    queen_seen = as.integer(queen_seen),
+    eggs_seen = as.integer(eggs_seen),
+    queen_cells_count = as.integer(queen_cells_count),
+    notes = notes,
+    traits = traits
+  ))
+  result$id
+}
+
+db_inspections_traits <- function(db, inspection_id) {
+  api_get(db, paste0("/v1/inspections/", inspection_id, "/traits"))
+}
+
+db_inspections_update <- function(db, id, date, inspector = NA,
+                                   brood_frames = NA, honey_frames = NA,
+                                   food_stores_kg = NA, colony_strength = NA,
+                                   queen_seen = FALSE, eggs_seen = FALSE,
+                                   queen_cells_count = 0L, notes = NA,
+                                   traits = list()) {
+  api_put(db, paste0("/v1/inspections/", id), list(
+    date = as.character(date),
+    inspector = inspector,
+    brood_frames = brood_frames,
+    honey_frames = honey_frames,
+    food_stores_kg = food_stores_kg,
+    colony_strength = colony_strength,
+    queen_seen = as.integer(queen_seen),
+    eggs_seen = as.integer(eggs_seen),
+    queen_cells_count = as.integer(queen_cells_count),
+    notes = notes,
+    traits = traits
+  ))
+}
+
+db_inspections_delete <- function(db, id) {
+  api_delete(db, paste0("/v1/inspections/", id))
+}
+
+db_inspections_last <- function(db, colony_id) {
+  api_get_one(db, "/v1/inspections/last", list(colony_id = colony_id))
+}