R/S3.R

In mlfit: Iterative Proportional Fitting Algorithms for Nested Structures

# nocov start
make_is <- function(class, env = parent.frame()) {
  f <- eval(bquote(function(x) {
    inherits(x, .(class))
  }))
  environment(f) <- env
  f
}

make_new <- function(class, env = parent.frame()) {
  f <- eval(bquote(function(x = list(), ...) {
    structure(x, ..., class = .(class))
  }))
  environment(f) <- env
  f
}

default_print <- function(x, ...) {
  cat(format(x, ...), sep = "\n")
  invisible(x)
}
# nocov end