R/chkclass.R

In metarep: Replicability-Analysis Tools for Meta-Analysis

chkclass <- function(x, class, name = NULL) {
  ## Based on chkclass() from R package meta, version 4.11-0
  
  ##
  ## Check class of R object
  ##
  if (is.null(name))
    name <- deparse(substitute(x))
  ##
  if (!inherits(x, class))
    stop("Argument '", name,
         "' must be an object of class \"",
         class, "\".", call. = FALSE)
  ##
  invisible(NULL)
}