R/print.R

Defines functions print.Q7instance print.Q7type

#' @export
print.Q7type <- function(x, ...) {
    cat(paste0("<Q7type:", attr(x, "s3"), ">", "\n"))
    print(environment(x))
}

#' @export
print.Q7instance <- function(x, ...){
    if (exists("print", x)) {
        get("print", x)()
    }
}
iqis/foo documentation built on June 7, 2020, 5:15 a.m.