R/mparse.R

In meerapatelmd/glitter: Send Git commands via the R Console

mparse <-
        function(x,
                 pattern =  "\\[(.*)\\] (.*?): (.*$)",
                 names   = c("commit",
                             "commit_date",
                             "commit_description")) {

                output <- list()

                for (i in seq_along(names)) {

                        new_col_contents <-
                                stringr::str_replace_all(
                                        string = x,
                                        pattern = pattern,
                                        replacement = as.character(glue::glue("\\{i}"))
                                )

                        output[[i]] <- new_col_contents
                        names(output)[i] <- names[i]

                }

                output %>%
                        tibble::as_tibble()

        }