# NOT RUN {
html_report <- add_barplot(report = new_report(),
dt = iris,
bars = 'Species',
value = 'Sepal.Length')
cat(html_report)
# }
Run the code above in your browser using DataLab