Print Debug Messages Before and After Running Code

catAndRun(messageText = "Running code", expr, newLine = 2L,
  dbg = TRUE)

Arguments

messageText

text to be printed before running the code

expr

expressions to be run. Enclose more than one expression in curly braces

newLine

integer controlling new lines. 0: no extra new line, 1: new line after messageText, 2: new line after "ok.", 3: new line after both, messageText and "ok."

dbg

logical. If FALSE, output is suppressed.

Value

This function returns the evaluation of expr.

Examples

for (newLine in 0:3) { catAndRun("work hard", newLine = newLine, { cat("hard\nworking\n") }) cat("here.\n\n") }
#> work hard ... hard #> working #> ok. here. #> #> work hard ... #> hard #> working #> ok. here. #> #> work hard ... hard #> working #> ok. #> here. #> #> work hard ... #> hard #> working #> ok. #> here. #>