print.p_rope.R
#' @export
print.p_rope <- function(x, digits = 2, ...) {
orig_x <- x
print.data.frame(x, digits = digits, ...) # TODO
invisible(orig_x)
}
#' @export
print.p_rope <- function(x, digits = 2, ...) {
orig_x <- x
print.data.frame(x, digits = digits, ...) # TODO
invisible(orig_x)
}