Print or return a detailed git log of the git repository located in the specified directory.

This function checks if the specified directory is a Git repository and, if so, executes a git log command to either print the log to the console or return it. It supports execution on Windows and Linux operating systems and provides a visually appealing graph format of the log, showing the commit hash, references, commit message, relative commit date, and author name.

Usage

git_log(Path = ".", Num = NULL, ReturnLog = FALSE)

Arguments

Path: Character. Path to the directory to check. Defaults to the current working directory ".". If the path does not exist, the function will stop and throw an error. If the path is not a git repository, the function will throw a warning.
Num: Integer. Number of recent commits to display. If NULL (the default), the complete log is shown. If Num is not NULL or a positive number, the function will stop and throw an error. This parameter is ignored if ReturnLog is TRUE.
ReturnLog: Logical. Whether to return the log (TRUE) or print it to the console (FALSE, default). If TRUE, the function returns a character vector containing the log lines.

Value

If ReturnLog is TRUE, returns a character vector containing the git log lines. If ReturnLog is FALSE, the function is called for its side effect of printing to the console.

Note

The function will stop and throw an error if the specified path does not exist, the operating system is not supported, the directory is not a Git repository, Git is not installed, or if the Num parameter is not NULL or a positive number.

Author

Ahmed El-Gabbas

Examples

# Show the most recent commit
git_log(Num = 1)
#> * 66faeb9 - (grafted, HEAD -> main, origin/main) Small fix to Predict_Maps function (11 minutes ago) <Ahmed El-Gabbas>

# Show the most recent 5 commits
git_log(Num = 5)
#> * 66faeb9 - (grafted, HEAD -> main, origin/main) Small fix to Predict_Maps function (11 minutes ago) <Ahmed El-Gabbas>

# Return the log as a character vector
Log <- git_log(ReturnLog = TRUE)

length(Log)
#> [1] 1

head(Log, 8)
#> [1] "* 66faeb9 - (grafted, HEAD -> main, origin/main) Small fix to Predict_Maps function (11 minutes ago) <Ahmed El-Gabbas>"

if (FALSE) { # \dontrun{
  # not a git repo
  git_log(Path = "C:/")
  # #> Error: The provided path does not exist.
} # }