R/trace_this_script.R

In patelm9/projektoR:

#' Gets the list of "^DATA_" objects in the global environment for commenting
#'@export
#'
trace_this_script <-
        function(project_roadmap_id) {
                if (!(exists("PROJECT_TRACE", envir = globalenv()))) {
                        if (!(file.exists("PROJECT_TRACE.RData"))) {
                                x <- list()
                                x[[1]] <-
                                        data.frame(TRACE_TIMESTAMP = mirroR::get_timestamp(),
                                                   TRACE_ROBJ_NAMES = c(objects(pattern = "INPUT_DATA", envir = globalenv()),
                                                                        objects(pattern = "^DATA_", envir = globalenv()),
                                                                        objects(pattern = "FINAL_DATA", envir = globalenv())
                                                   ),
                                                   TRACE_ROBJ_COMMENT = "")
                                names(x) <- project_roadmap_id
                                assign("PROJECT_TRACE", x, envir = globalenv())
                                saveRDS(x, "PROJECT_TRACE.RData")
                        } else {
                                PROJECT_TRACE <<- readRDS("PROJECT_TRACE.RData")
                        }

                } else {
                }


                typewriteR::add_my_two_cents_from_console(dataframe, TRACE_ROBJ_COMMENT)

                if (exists("PROJECT_ROADMAP")) {
                        PROJECT_ROADMAP <<- c(PROJECT_ROADMAP, TEMP_DF)
                        names(PROJECT_ROADMAP)[length(PROJECT_ROADMAP)] <<- as.character(Sys.time())
                        saveRDS(PROJECT_ROADMAP, "PROJECT_ROADMAP.RData")
                } else {
                        PROJECT_ROADMAP <<- list(TEMP_DF)
                        names(PROJECT_ROADMAP) <<- as.character(Sys.time())
                        saveRDS(PROJECT_ROADMAP, "PROJECT_ROADMAP.RData")
                }
        }