Print Debug Messages Before and After Running Code
catAndRun(messageText = "Running code", expr, newLine = 2L, dbg = TRUE)
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 |
dbg | logical. If |
This function returns the evaluation of expr
.
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. #>