R/instantiate_project_notepad.R

In patelm9/projektoR:

#' View PROJECT_NOTEPAD
#' @importFrom readr read_table
#' @export

instantiate_project_notepad <-
        function() {
                if (!(file.exists("PROJECT_NOTEPAD.txt"))) {
                        initialize_project_notepad()
                        x <- readr::read_table("PROJECT_NOTEPAD.txt", col_names = FALSE, col_types = cols(.default = "c")) %>%
                                unite(TIMESTAMP, X1, X2, sep = " ", na.rm = TRUE) %>%
                                unite(ENTRY, starts_with("X"), sep = " ", na.rm = TRUE)
                        assign("PROJECT_NOTEPAD", x, envir = globalenv())
                } else {
                        x <- readr::read_table("PROJECT_NOTEPAD.txt", col_names = FALSE, col_types = cols(.default = "c")) %>%
                                unite(TIMESTAMP, X1, X2, sep = " ", na.rm = TRUE) %>%
                                unite(ENTRY, starts_with("X"), sep = " ", na.rm = TRUE)
                        assign("PROJECT_NOTEPAD", x, envir = globalenv())
                }
        }