https://github.com/cran/cutpointr
Tip revision: 2900dc24d2c5a7d8fdb3f1abb1540fb704e51742 authored by Christian Thiele on 15 February 2021, 13:40:03 UTC
version 1.1.0
version 1.1.0
Tip revision: 2900dc2
print.cutpointr.R
#' Print cutpointr objects
#'
#' Prints the \code{cutpointr} object with full width like a \code{tbl_df}.
#'
#' @source Kirill Müller and Hadley Wickham (2017). tibble: Simple Data Frames.
#' https://CRAN.R-project.org/package=tibble
#' @param x a cutpointr object.
#' @param width width of output.
#' @param n number of rows to print.
#' @param sigfig Number of significant digits to print. Temporarily
#' overrides options("pillar.sigfig").
#' @param ... further arguments.
#' @export
print.cutpointr <- function(x, width = 1000, n = 50, sigfig = 6, ...) {
# print.tbl_df is not exported by tibble, avoid :::
class(x) <- c("tbl_df", "tbl", "data.frame")
old_sigfig <- options("pillar.sigfig")
options(pillar.sigfig = sigfig)
print(x, width = width, n = n)
options(pillar.sigfig = old_sigfig$pillar.sigfig)
class(x) <- c("cutpointr", "tbl_df", "tbl", "data.frame")
invisible(x)
}