R/is_chartor.R

In inbo/n2khelper: Auxiliary Functions for the Analysis and Reporting of the Natura 2000 Monitoring

#' Test if the argument is either character or factor
#' @param x the object to check
#' @export
#' @importFrom assertthat 'on_failure<-'
is_chartor <- function(x) {
  is.character(x) | is.factor(x)
}
on_failure(is_chartor) <- function(call, env) {
  paste0(deparse(call$x), " is neither character nor factor")
}