R/refresh_project_roadmap.R

In patelm9/projectRoadTrip:

#' Refreshes ROJECT_ROADMAP$CURRENT after an update
#' @importFrom somersaulteR filter_most_recent_obs_by_group
#' @importFrom mirroR save_robj
#' @export

refresh_project_roadmap <-
        function() {
                        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")
                        PROJECT_ROADMAP$CURRENT <<-
                                PROJECT_ROADMAP$CURRENT %>%
                                arrange(as.integer(PROJECT_ROADMAP_ID)) %>%
                                somersaulteR::call_mr_clean()

                        for (i in 1:length(PROJECT_ROADMAP)) {
                                PROJECT_ROADMAP[[i]] <<- PROJECT_ROADMAP[[i]] %>%
                                                                somersaulteR::mutate_all_na_to_blank()
                        }
                        mirroR::save_robj(PROJECT_ROADMAP)
        }