R/debugprint.R

debugPrintObj = function(obj) {
    msg = paste("=debug R========\n", paste(capture.output(print(obj)), collapse="\n"))
    message(msg)
}

debugPrintString = function(str) {
    msg = paste("=debug R==", str)
    message(msg)
}
kindlychung/txtutils documentation built on May 20, 2019, 10:01 a.m.