y <- 1:10; R(sum(y^2))
R(cat("a bit talkative, innit?"))
R(sqrt(c(-1, 0, 1, 2, 4)))
R(log("aaaargh"))
R({
cat("STDOUT"); cat("STDERR", file=stderr()); message("MESSAGE");
warning("WARNING"); warning("WARNING AGAIN"); cat("MORE STDOUT");
message("ANOTHER MESSAGE"); stop("ERROR"); y; "NO RETURN VALUE"
})
Run the code above in your browser using DataLab