R/text_io.R

In mmuurr/MuratTasan_R_package: Murat Tasan's Swiss-Army Knife

timecat <- function(s, ...) {
    cat(sprintf("[%s] %s", Sys.time(), s), ...)
}


sstr <- function(object, ...) {
    sprintf("%s\n%s\n",
            sprintf("str(%s):", deparse(substitute(object))),
            paste0(capture.output(str(object, ...)), collapse = "\n"))
}