R/unveil_project_roadmap.R

In patelm9/projectRoadTrip:

#' Creates first version of PROJECT_ROADMAP from unboxed project_roadmap_00.R
#' @importFrom somersaulteR mutate_new_cols_if_not_exist_by_robj_name
#' @importFrom dplyr mutate
#' @importFrom mirroR get_timestamp
#' @importFrom somersaulteR call_mr_clean
#' @export

unveil_project_roadmap <-
        function() {
                if (!(file.exists("project_roadmap_00.R"))) {
                        if (!(file.exists("PROJECT_ROADMAP.RData"))) {
                                unbox_project_roadmap()
                        } else {
                                initialize_project_roadmap()
                        }
                } else {
                        source("project_roadmap_00.R", local = TRUE)
                        PROJECT_ROADMAP_ID <- get("PROJECT_ROADMAP_ID")

                        if (PROJECT_ROADMAP_ID == "") {
                                PROJECT_ROADMAP_ID <- "1"
                        }

                        df_skeleton <- create_roadmap_dataframe()
                        df_skeleton <- somersaulteR::mutate_new_cols_if_not_exist_by_robj_name(df_skeleton,"^PROJECT_ROADMAP_")

                        robj_names <- colnames(df_skeleton)
                        for (i in 1:length(robj_names)) {
                                robj_name <- robj_names[i]
                                if (exists(robj_name)) {
                                        column_name <- robj_name
                                        df_skeleton[1, column_name] <- get(robj_name)
                                }
                        }

                        new_roadmap_df <- df_skeleton %>%
                                dplyr::mutate(PROJECT_ROADMAP_TIMESTAMP = mirroR::get_timestamp()) %>%
                                somersaulteR::call_mr_clean()

                        PROJECT_ROADMAP <<- PROJECT_ROADMAP <- list(CURRENT = data.frame(),
                                                                    HISTORY = data.frame())
                        PROJECT_ROADMAP$HISTORY <<- new_roadmap_df
                        suppressWarnings(rm(list = robj_names))
                        refresh_project_roadmap()
                        file.remove("project_roadmap_00.R")
                }
        }