46 lines
1.3 KiB
R
46 lines
1.3 KiB
R
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))
|
|
}
|