33 lines
763 B
R
33 lines
763 B
R
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))
|
|
}
|