# NOT RUN {
b <- beautify()
cat('length', length(b), '\n')
#25
cat(names(b), '\n')
# acronym bold cite code dQuote email emph enc env figure file format kbd link
# option pkg preformatted samp source sQuote strong url var verb codelink
x <- 'some content'
cat(x, ':', b$code(x), '\n')
#some content : \code{some content}
# }
Run the code above in your browser using DataLab