# NOT RUN {
# create dataset
heartfailure2 <- dlookr::heartfailure
heartfailure2[sample(seq(NROW(heartfailure2)), 20), "sodium"] <- NA
heartfailure2[sample(seq(NROW(heartfailure2)), 5), "smoking"] <- NA
heartfailure2[sample(seq(NROW(heartfailure2)), 2), "time"] <- 0
heartfailure2[sample(seq(NROW(heartfailure2)), 1), "creatinine"] <- -0.3
# create pdf file. file name is Diagnosis_Report.html
# diagnose_web_report(heartfailure2)
# file name is Diagn.html. and change logo image
# logo <- file.path(system.file(package = "dlookr"), "report", "R_logo_html.svg")
# diagnose_web_report(heartfailure2, logo_img = logo, title_color = "black",
# output_file = "Diagn.html")
# file name is ./Diagn_heartfailure.html, "blue" theme and not browse
# diagnose_web_report(heartfailure2, output_dir = ".", author = "Choonghyun Ryu",
# output_file = "Diagn_heartfailure.html", theme = "blue", browse = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab