R/file_tracking.R

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

#' Commit History of a File
#' @description This function can be especially useful in cases where a deleted files is being tracked down.
#' @export

list_file_commits <-
  function(file,
           path = getwd(),
           verbose = TRUE) {
    logResponse <-
      system(paste0("cd\ncd ", path, "\ngit log --all -- ", file),
        intern = TRUE
      )

    if (verbose) {
      print_response(logResponse)
    }

    invisible(logResponse)
  }

#' @title
#' SHA of a File's Last Commit
#' @export

last_file_commit <-
  function(file,
           path = getwd()) {
    file_commits <-
      list_file_commits(
        file = file,
        path = path,
        verbose = FALSE
      )

    # Index of first commit in vector
    index <-
      grep(
        pattern = "^commit [^ ]{1,}$",
        x = file_commits
      )[1]

    stringr::str_replace(file_commits[index],
      pattern = "(commit )(.*$)",
      replacement = "\\2"
    )
  }