## Not run:
# # load library
# library(rmarkdown)
# library(ggplot2)
# library(data.table)
#
# # load data
# data(diamonds)
# diamonds2 <- data.table(diamonds)
#
# # manually set some missing values
# for (j in 5:ncol(diamonds2)) {
# set(diamonds2,
# i = sample.int(nrow(diamonds2), sample.int(nrow(diamonds2), 1)),
# j,
# value = NA_integer_)}
#
# # generate report for diamonds dataset
# GenerateReport(diamonds2,
# output_file = "report.html",
# output_dir = getwd(),
# html_document(toc = TRUE, toc_depth = 6, theme = "flatly"))
# ## End(Not run)
Run the code above in your browser using DataLab