R/template_available.R

In AstraZeneca/pmworkbench: Respoitory of templates for pharmacometric projects

# ------------------------
#  Show available 
# ------------------------

#' @title Show available project templates
#' 
#' @description Show available project templates
#' 
#' @return set of template R and Rmarkdown script files
#' @rdname template_available
#' @export

template_available <- function(){
  # find all files in package
  fullList <- dir(system.file(package = "pmworkbench"), recursive = F) 
  
  # only show available template folders
  templates <- 
    fullList[! fullList %in% 
               c("DESCRIPTION", "help", "html", "INDEX",
                 "Meta", "NAMESPACE", "R","ReadMeFiles","packageDevelopment")]
  return(templates)
}