R/view_current_roadmap.R

In patelm9/projectRoadTrip:

#' View the current roadmap
#' @import dplyr
#' @import somersaulteR
#' @export

view_current_roadmap <-
        function() {
                project_roadmap_col_names <- colnames(PROJECT_ROADMAP$CURRENT)
                na_vars <- project_roadmap_col_names[!(project_roadmap_col_names %in% c("PROJECT_ROADMAP_ID", "PROJECT_ROADMAP_TIMESTAMP"))]

                x <-
                PROJECT_ROADMAP$CURRENT %>%
                        somersaulteR::call_mr_clean() %>%
                        dplyr::mutate_all(str_replace_all, "NA", "")  %>%
                        somersaulteR::mutate_all_na_to_blank() %>%
                        dplyr::filter_at(vars(na_vars), all_vars(. == ""))

                PROJECT_ROADMAP$CURRENT[!(PROJECT_ROADMAP$CURRENT$PROJECT_ROADMAP_ID %in% x$PROJECT_ROADMAP_ID),] %>%
                        dplyr::arrange(PROJECT_ROADMAP_STEP_NUMBER, PROJECT_ROADMAP_STEP_PART) %>%
                        dplyr::select(-(contains("TIMESTAMP"))) %>%
                        dplyr::rename_all(str_remove_all, "PROJECT_ROADMAP_")

        }