104 lines
2.9 KiB
R
104 lines
2.9 KiB
R
db_varroa_counts_list <- function(db, colony_id) {
|
|
api_get(db, "/v1/varroa/counts", list(colony_id = colony_id))
|
|
}
|
|
|
|
db_varroa_counts_insert <- function(db, colony_id, date_from = NA, date, method, count,
|
|
notes = NA, time = NA) {
|
|
result <- api_post(db, "/v1/varroa/counts", list(
|
|
colony_id = colony_id,
|
|
date_from = date_from,
|
|
date = as.character(date),
|
|
method = method,
|
|
count = count,
|
|
notes = notes,
|
|
time = time
|
|
))
|
|
result$id
|
|
}
|
|
|
|
db_varroa_counts_get <- function(db, id) {
|
|
api_get_one(db, paste0("/v1/varroa/counts/", id))
|
|
}
|
|
|
|
db_varroa_counts_update <- function(db, id, date_from = NA, date, method, count, notes = NA) {
|
|
api_put(db, paste0("/v1/varroa/counts/", id), list(
|
|
date_from = date_from,
|
|
date = as.character(date),
|
|
method = method,
|
|
count = count,
|
|
notes = notes
|
|
))
|
|
}
|
|
|
|
db_varroa_counts_delete <- function(db, id) {
|
|
api_delete(db, paste0("/v1/varroa/counts/", id))
|
|
}
|
|
|
|
db_varroa_treatments_list <- function(db, colony_id) {
|
|
api_get(db, "/v1/varroa/treatments", list(colony_id = colony_id))
|
|
}
|
|
|
|
db_varroa_treatments_insert <- function(db, colony_id, date, product,
|
|
method = NA, dosage = NA, notes = NA, time = NA) {
|
|
result <- api_post(db, "/v1/varroa/treatments", list(
|
|
colony_id = colony_id,
|
|
date = as.character(date),
|
|
product = product,
|
|
method = method,
|
|
dosage = dosage,
|
|
notes = notes,
|
|
time = time
|
|
))
|
|
result$id
|
|
}
|
|
|
|
db_varroa_treatments_get <- function(db, id) {
|
|
api_get_one(db, paste0("/v1/varroa/treatments/", id))
|
|
}
|
|
|
|
db_varroa_treatments_update <- function(db, id, date, product, method = NA, dosage = NA, notes = NA) {
|
|
api_put(db, paste0("/v1/varroa/treatments/", id), list(
|
|
date = as.character(date),
|
|
product = product,
|
|
method = method,
|
|
dosage = dosage,
|
|
notes = notes
|
|
))
|
|
}
|
|
|
|
db_varroa_treatments_delete <- function(db, id) {
|
|
api_delete(db, paste0("/v1/varroa/treatments/", id))
|
|
}
|
|
|
|
db_varroa_controls_list <- function(db, colony_id = NULL, treatment_id = NULL) {
|
|
api_get(db, "/v1/varroa/controls", list(colony_id = colony_id, treatment_id = treatment_id))
|
|
}
|
|
|
|
db_varroa_controls_insert <- function(db, treatment_id, colony_id, date,
|
|
result = NA, notes = NA) {
|
|
res <- api_post(db, "/v1/varroa/controls", list(
|
|
treatment_id = treatment_id,
|
|
colony_id = colony_id,
|
|
date = as.character(date),
|
|
result = result,
|
|
notes = notes
|
|
))
|
|
res$id
|
|
}
|
|
|
|
db_varroa_controls_get <- function(db, id) {
|
|
api_get_one(db, paste0("/v1/varroa/controls/", id))
|
|
}
|
|
|
|
db_varroa_controls_update <- function(db, id, date, result = NA, notes = NA) {
|
|
api_put(db, paste0("/v1/varroa/controls/", id), list(
|
|
date = as.character(date),
|
|
result = result,
|
|
notes = notes
|
|
))
|
|
}
|
|
|
|
db_varroa_controls_delete <- function(db, id) {
|
|
api_delete(db, paste0("/v1/varroa/controls/", id))
|
|
}
|