f1 <- function() {
cat("1\n")
print("2")
warning("3")
print("4")
message("5")
stop("6")
}
replay(evaluate("f1()"))
f2 <- function() {
message("Hello")
plot(1:10)
message("Goodbye")
}
replay(evaluate("f2()"))
Run the code above in your browser using DataLab