R/utils.R

In strboul/shutterstock-r: Access 'Shutterstock' REST API

#' Check required args for the API endpoint parameters
#' @noRd
check_required_args <-
  function(x,
           type = c("character", "numeric", "integer", "data.frame", "list")) {
    x.name <- deparse(substitute(x))
    if (missing(x)) {
      require_args_error(x.name)
    }
    selected.type <- match.arg(type)
    switch (
      selected.type,
      "character" = is.character,
      "numeric" = is.numeric,
      "integer" = is.integer,
      "data.frame" = is.data.frame,
      "list" = is.list
    ) -> funTypeCheck
    if (!funTypeCheck(x)) {
      stop(sprintf("%s not valid. Provide an input with \"%s\" type.",
                   x.name, selected.type),
           call. = FALSE)
    }
  }

#' Require call arguments
#' @noRd
require_args_error <- function(x) {
  stop(paste("Please provide required parameter(s):", x),
       call. = FALSE)
}