R/hasAttributes.R

In jakobbossek/JBmisc: Different tiny helper functions for R.

#' Check if given object has certain attributes.
#'
#' @param obj [\code{mixed}]\cr
#'   Arbitrary R object.
#' @param attributeNames [\code{character}]\cr
#'   Vector of strings, i.e., attribute names.
#' @return [\code{logical(1)}]
#'   \code{TRUE} if object \code{x} contains all attributes from \code{attributeNames}.
#'   and otherwise \code{FALSE}.
#' @export
hasAttributes = function(obj, attributeNames) {
  return(is.subset(attributeNames, getAttributeNames(obj)))
}