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"))
}