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/ewaff documentation built on Nov. 10, 2024, 4:53 p.m.