#! eval: false
<- file("all.Rout", open = "wt")
zz sink(zz)
sink(zz, type = "message")
print(1:10)
[1] 1 2 3 4 5 6 7 8 9 10
# stop('An eror is an error!')
warning('A warning is a warning!')
Warning: A warning is a warning!
sink(type = "message")
sink()
file.show("all.Rout")