R/assert-has-slot.R

In assertive.properties: Assertions to Check Properties of Variables

Defines functions assert_has_slot

Documented in assert_has_slot

#' @rdname has_slot
#' @export
assert_has_slot <- function(x, severity = getOption("assertive.severity", "stop"))
{
  assert_engine(
    has_slot,
    x, 
    .xname = get_name_in_parent(x),
    severity = severity
  )
}

Try the assertive.properties package in your browser