## tidy up the source code of image demo
x = file.path(system.file(package = "graphics"), "demo", "image.R")
# to console
tidy.source(x)
# to a file
tidy.source(x, file = tempfile())
## check the original code here and see the difference
file.show(x)
## if you've copied R code into the clipboard
tidy.source("clipboard")
Run the code above in your browser using DataLab