R/check-arguments.R

In clockify: A Wrapper for the 'Clockify' API

# nocov start

check_active <- function(active) {
  if (is.logical(active)) {
    active <- ifelse(active, "ACTIVE", "INACTIVE")
  } else if (!is.character(active) || !(active %in% c("ACTIVE", "INACTIVE"))) {
    stop('Argument "active" must be either TRUE, FALSE, "ACTIVE" or "INACTIVE".')
  }

  active
}

check_quantity <- function(quantity) {
  if (!(quantity %in% c("budget", "time"))) stop("Invalid quantity.")
}

# nocov end