R/report.R

In AdrienLeGuillou/descriptor: Simple and tidy data description

report_describe <- function(df, group = "",
                            max_lvl = 3,
                            univar = TRUE,
                            bivar = FALSE, 
                            graphical = TRUE) {
  
  f <- readr::read_file(system.file("rmd/template.Rmd", 
                                    package="descriptor"))
  
  if (univar) {
    # f <- paste0(f, 
    #             readr::read_file(system.file("rmd/univar.Rmd", 
    #                                          package="descriptor")))
    if (graphical) {
      f <- paste0(f, 
                  readr::read_file(system.file("rmd/univar_plots.Rmd", 
                                               package="descriptor")))
    }
  }
  
  if (group != "") {
    # f <- paste0(f, 
    #             readr::read_file(system.file("rmd/group_univar.Rmd", 
    #                                          package="descriptor")))
    if (graphical) {
      f <- paste0(f, 
                  readr::read_file(system.file("rmd/group_univar_plot.Rmd", 
                                               package="descriptor")))
    }
  }
  
  readr::write_file(f, "template.Rmd")


  rmarkdown::render("template.Rmd",
                    params = list(df = df,
                                  group = group,
                                  max_lvl = max_lvl))

  file.remove("template.Rmd")
}