R/sv_add_dropship_inventory.R

In anthonypileggi/skuvaultr: Access the Skuvault API

#' Add drop-ship inventory to skuvault
#' @param skus skus to add quantity
#' @param qty quantity to add (must be same length as `skus`, or length 1)
#' @param locs locations to add (must be same length as `skus`, or length 1)
#' @export
sv_add_dropship_inventory <- function(skus, qty, locs = c("STENS", "ROTARY", "POWER", "RBI", "GARDNER")) {

  # checks
  locs <- match.arg(locs)
  if (length(qty) != length(skus) & length(qty) != 1)
    stop("Input `qty` must be length 1 or the same length as `skus`!", call. = FALSE)
  if (length(locs) != length(skus) & length(locs) != 1)
    stop("Input `locs` must be length 1 or the same length as `skus`!", call. = FALSE)
  products <- sv_get_products(skus = skus)
  if (nrow(products) != length(skus))
    stop("Not all SKUs are valid!", call. = FALSE)
  # if (any(products$Classification != "Drop Ship"))
  #   stop("All SKUs must be Drop Ships!", call. = FALSE)

  # prep for API
  out <- dplyr::tibble(
    Sku = skus,
    Quantity = qty,
    WarehouseId = 25576,             # dropship warehouse
    LocationCode = locs,
    Reason = "Add for Drop-Ships"
  )

  # TODO: if >100 calls, split them up
  if (nrow(out) > 100)
    stop("You can only submit 100 Skus at a time!", call. = FALSE)

  # submit to API
  sv_api_call(
    path = "inventory/addItemBulk",
    Items = out
  )
}