R/update_project_notepad.R

In patelm9/projektoR:

#' Updates PROJECT_NOTEPAD R object from the PROJECT_NOTEPAD.txt in working dir
#' @importFrom readr read_table
#' @importFrom tidyr unite
#' @export

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