R/utils.R

In mmaitenat/ideafix: ideafix, DEAmination FIXing

#' Check required arguments exist
#'
#' Checks if required arguments for a function are present
#'
#' It stops the program if the argument is not present.
#'
#' @param defined Arguments required for the function to run
#' @param passed Arguments passed to the function
#'
#' @return None
#'
#' @examples
check_arguments <- function(defined, passed) {
  if (any(!defined %in% passed)) {
    stop(paste("Missing values for", paste(setdiff(defined, passed), collapse = ", ")))
  }
}