# NOT RUN {
html_report <- add_code(report = '',
code_title = 'Code comes after this title',
code = 'f <- function(x, y){paste(x,y)},
f("a", "b")',
eval = FALSE,
echo = TRUE,
fig_width = 12,
fig_height = 8)
cat(html_report)
# }
Run the code above in your browser using DataLab