add homekeeper stack

beekeeper/R/db_colonies.R

@@ -0,0 +1,52 @@
+db_colonies_list <- function(db, apiary_id = NULL, include_closed = FALSE) {
+  api_get(db, "/v1/colonies", list(apiary_id = apiary_id, include_closed = include_closed))
+}
+
+db_colonies_get <- function(db, id) {
+  api_get_one(db, paste0("/v1/colonies/", id))
+}
+
+db_colonies_insert <- function(db, name, apiary_id, status = "wirtschaftsvolk",
+                               parent_colony_id = NA, notes = NA) {
+  result <- api_post(db, "/v1/colonies", list(
+    name = name,
+    apiary_id = apiary_id,
+    status = status,
+    parent_colony_id = parent_colony_id,
+    notes = notes
+  ))
+  result$id
+}
+
+db_colonies_update <- function(db, id, name, apiary_id, status, notes = NA) {
+  api_put(db, paste0("/v1/colonies/", id), list(
+    name = name,
+    apiary_id = apiary_id,
+    status = status,
+    notes = notes
+  ))
+}
+
+db_colonies_close <- function(db, id) {
+  api_post(db, paste0("/v1/colonies/", id, "/close"))
+}
+
+db_colonies_set_queen <- function(db, colony_id, queen_id) {
+  api_post(db, paste0("/v1/colonies/", colony_id, "/set-queen"), list(queen_id = queen_id))
+}
+
+db_colony_log <- function(db, colony_id) {
+  api_get(db, paste0("/v1/colonies/", colony_id, "/log"))
+}
+
+db_colonies_lineage <- function(db, colony_id) {
+  api_get(db, paste0("/v1/colonies/", colony_id, "/lineage"))
+}
+
+db_colonies_descendants <- function(db, colony_id) {
+  api_get(db, paste0("/v1/colonies/", colony_id, "/descendants"))
+}
+
+db_colonies_location_history <- function(db, colony_id) {
+  api_get(db, paste0("/v1/colonies/", colony_id, "/location-history"))
+}