R/instantiate_project_roadmap.R

Defines functions instantiate_project_roadmap

Documented in instantiate_project_roadmap

#' Loads and processes current PROJECT_ROADMAP R Object
#' @importFrom somersaulteR filter_most_recent_obs_by_group
#' @importFrom somersaulteR mutate_all_na_to_blank
#' @importFrom mirroR save_robj
#' @export

instantiate_project_roadmap <-
        function() {
                if (!(file.exists("PROJECT_ROADMAP.RData"))) {
                        saveRDS(PROJECT_ROADMAP, "PROJECT_ROADMAP.RData")
                } else {
                        PROJECT_ROADMAP <<- readRDS("PROJECT_ROADMAP.RData")
                        PROJECT_ROADMAP$CURRENT <<- somersaulteR::filter_most_recent_obs_by_group(PROJECT_ROADMAP$HISTORY, PROJECT_ROADMAP_ID, index_time_col = PROJECT_ROADMAP_TIMESTAMP, time_format = "timestamp")

                        for (i in 1:length(PROJECT_ROADMAP)) {
                                PROJECT_ROADMAP[[i]] <<-
                                        PROJECT_ROADMAP[[i]] %>%
                                        somersaulteR::mutate_all_na_to_blank()
                        }
                        mirroR::save_robj(PROJECT_ROADMAP)
                }
        }
patelm9/projectRoadTrip documentation built on Dec. 3, 2019, 11:14 p.m.