R/disposal.R

In CannaData/CannaLeafDataSystems: Wrapper for Leaf Data Systems API

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

#' Create areas
#' @export
lds_post_disposal <- function(external_id = NA, reason, disposal_at,
                              qty, uom, source, global_batch_id = NA,
                              global_area_id = NA, global_plant_id = NA, 
                              global_inventory_id = NA
                              ) {
  
  lds_call("disposals", "POST", body = list(
    disposal = data.frame(external_id, reason, disposal_at,
                          qty, uom, source, global_batch_id,
                          global_area_id, global_plant_id, 
                          global_inventory_id)
  ))
  
}

#' Update area
#' @export
lds_put_disposal <- function(global_id, ...) {
  
  lds_call("disposals", "PUT", body = list(
    disposal = data.frame(..., global_id)
  ))
  
}

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