R/util.R

In AMUFacultyOfEnglish/ENRanalytics: A package facilitating common E&R data processing tasks

report_system_file <- function(file) {
  system.file("rmarkdown", paste0("skeleton/", file) , package = "ENRanalytics")
}

load_html_files <- function(path) {
  command <- paste0('cp ', paste0(path, "*.html"), ' ', "reports/")
  system(command)
}

report_show <- function(...) {
  file.path(...) %>% file.edit()
}