To get started, run:
library(devtools) load_all() test()
Typical workflow. To avoid having to set the test parameter manually you can set it as an environmental variable, in .env.
test <- Sys.getenv("ENV") == "test" imported.data <- import_data(test = test) data <- merge_data(imported.data, test = test) prepared.data <- prepare_data(data)
Compare opportunities for improvement with preventable death included versus not including preventable deaths.
data$ofi.withouth.preventable.death <- create_ofi(data, include.preventable.death = FALSE) table(data$ofi) table(data$ofi.withouth.preventable.death)
Generate pdf vignette.
rmarkdown::render("./vignettes/introduction.Rmd", output_format = "pdf_document") system("mv ./vignettes/introduction.pdf ./doc/introduction.pdf")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.