R/is.R

Defines functions make_is

#' @export
make_is <- function(class, env = parent.frame()) {
  f <- eval(bquote(function(x) {
    inherits(x, .(class))
  }))
  environment(f) <- env
  f
}
krlmlr/S3 documentation built on May 20, 2019, 6:16 p.m.