# NOT RUN {
f <- function # title
### description
(x, ##<< arg x
y
### arg y
){
##value<< a list with elements
list(x=x, ##<< original x value
y=y, ##<< original y value
sum=x+y) ##<< their sum
##end<<
}
src <- getSource(f)
lonely$extract.xxx.chunks(src)
lonely$prefixed.lines(src)
# }
Run the code above in your browser using DataLab