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)()
    } else {
        cat(paste0("<Q7Instance:", attr(x, "s3"), ">", "\n"))
    }
}

Try the Q7 package in your browser

Any scripts or data that you put into this service are public.

Q7 documentation built on Jan. 13, 2021, 10:11 a.m.