innerFunction <- function() {
startinfo <- madrat:::toolstartmessage("innerFunction(argumentsToPrint = 123)", "+")
vcat(1, "inner")
madrat:::toolendmessage(startinfo, "-")
}
outerFunction <- function() {
startinfo <- madrat:::toolstartmessage("outerFunction()", "+")
vcat(1, "outer")
innerFunction()
madrat:::toolendmessage(startinfo, "-")
}
outerFunction()
Run the code above in your browser using DataLab