require(stats)
glmout <- capture.output(example(glm))
glmout[1:5]
capture.output(1+1, 2+2)
capture.output({1+1; 2+2})
## Not run:
# ## on Unix with enscript available
# ps <- pipe("enscript -o tempout.ps","w")
# capture.output(example(glm), file = ps)
# close(ps)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace