R/riteMsg.R

Defines functions riteMsg

# FUNCTION TO CONTROL PRINTING TO OUTPUT VERSUS CONSOLE
riteMsg <- function(output, errorout, value, error =FALSE) {
    if (catchOutput & error) {
        tkinsert(errorout, "end", value)
    } else if (catchOutput) {
        tkinsert(output, "end", value)
    } else {
        message(value, appendLF = FALSE)
    }
    return(invisible(NULL))
}
leeper/rite documentation built on Oct. 14, 2017, 7:09 a.m.