# NOT RUN {
html_report <- add_code(report = new_report(),
code_title = 'Code comes after this title',
code = 'f <- function(x, y){paste(x,y)}
f("a", "b")')
# }
Run the code above in your browser using DataLab