R/refresh_current_project_log.R

In patelm9/projectloggeR: This package creates the tools needed to log data input for provenance.

#' Gets the last entry in the PROJECT_LOG$HISTORY for each directory being logged and moves it to PROJECT_LOG$CURRENT
#' @export
refresh_current_project_log <-
        function() {
                tmp_project_log <- get("PROJECT_LOG", envir = globalenv())
                x <- list()
                for (i in 1:length(tmp_project_log$HISTORY)) {
                        x[[i]] <- tail_list(tmp_project_log$HISTORY[[i]])
                }
                names(x) <- names(tmp_project_log$HISTORY)
                tmp_project_log$CURRENT <- x
                saveRDS(tmp_project_log, "PROJECT_LOG.RData")
                assign("PROJECT_LOG", tmp_project_log, envir = globalenv())
        }