#' 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)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.