add homekeeper stack

beekeeper/R/db_apiaries.R

@@ -0,0 +1,32 @@
+db_apiaries_list <- function(db) {
+  api_get(db, "/v1/apiaries")
+}
+
+db_apiaries_get <- function(db, id) {
+  api_get_one(db, paste0("/v1/apiaries/", id))
+}
+
+db_apiaries_insert <- function(db, name, location_text = NA, lat = NA, lng = NA, notes = NA) {
+  result <- api_post(db, "/v1/apiaries", list(
+    name = name,
+    location_text = location_text,
+    lat = lat,
+    lng = lng,
+    notes = notes
+  ))
+  result$id
+}
+
+db_apiaries_update <- function(db, id, name, location_text = NA, lat = NA, lng = NA, notes = NA) {
+  api_put(db, paste0("/v1/apiaries/", id), list(
+    name = name,
+    location_text = location_text,
+    lat = lat,
+    lng = lng,
+    notes = notes
+  ))
+}
+
+db_apiaries_delete <- function(db, id) {
+  api_delete(db, paste0("/v1/apiaries/", id))
+}