R/message_dt.R

In philipdelff/NMdata: Preparation, Checking and Post-Processing Data for PK/PD Modeling

##' print a data.table
##'
##' @param x a data.table or something to be converted to a
##'     data.table.
##' @param ... passed to print.data.table.
##' @details defaults arguments to print.data.table (in addition to
##'     `x=dt` which cannot be overwritten) are `class=FALSE`,
##'     `print.keys=FALSE`, `row.names=FALSE`.


##' @keywords internal
message_dt <- function(x,...){

    if(!is.data.table(x)){
        x <- as.data.table(x)
    }

    dots <- list(...)
    defaults <- list(
        class=FALSE,
        print.keys=FALSE,
        row.names=FALSE
    )
    ## prioritize dots
    dots <- modifyList(defaults,dots)

    
    message(paste(capture.output(
        do.call(print,c(list(x=x),dots))
    ),collapse="\n"))

    invisible(x)
}