R/unbox_project_roadmap.R

In patelm9/projectRoadTrip:

#' Creates project_roadmap_00.R file to input first version of PROJECT_ROADMAP
#' @export

unbox_project_roadmap <-
        function() {
                if (!(file.exists("project_roadmap_00.R"))) {
                        if (!(file.exists("PROJECT_ROADMAP.RData"))) {
                x <- create_roadmap_dataframe()
                cat("## Plan out your Project Roadmap Here", file = "project_roadmap_00.R", sep="\n")
                cat(paste0(colnames(x), " <- ''\n"), file = "project_roadmap_00.R", append = TRUE)
                        }
                }
        }