R/msg.r

Defines functions msg

msg <- function(..., verbose=T) {
    if (verbose) {
        x <- paste(list(...))
        name <- sys.call(sys.parent(1))[[1]]
        cat(paste("[", name, "]", sep=""), date(), x, "\n")
    }
}
perishky/meffil documentation built on March 20, 2024, 1:56 a.m.