R/tax.R

In CannaData/CannaLeafDataSystems: Wrapper for Leaf Data Systems API

#' Get information about areas
#' @export
lds_get_tax <- function(...) {
  
  lds_call("taxes", "GET", query = ...)
  
}

#' Create areas
#' @export
lds_post_tax <- function(name) {
  
  lds_call("taxes", "POST", body = list(
    tax = data.frame(name)
  ))
  
}

#' Update area
#' @export
lds_put_tax <- function(global_id, name) {
  
  lds_call("taxes", "PUT", body = list(
    tax = data.frame(name, global_id)
  ))
  
}

#' Delete area
#' @export
lds_delete_tax <- function(global_id) {
  
  lds_call("taxes", "DELETE", global_id = global_id)
  
}