R/count_commits.R

In aldomann/gitlogr: Process Git Logs from Repositories

#' Get Git commit count
#'
#' Get your Git commit count in a single date or range of dates.
#'
#' @param from Date to count commits from.
#' @param to Optional ending date if you want to count commits in a date range.
#' @param author Optional author of the commits.
#' @param path Optional path of your Git repository.
#'
#' @keywords git
#' @examples
#' count_commits(from = "2019-06-01")
#' @importFrom rlang .data
#' @export
count_commits <- function(from, to = NULL, author = NULL, path = NULL) {
  if (is.null(to)) {
    to <- from
  }

  commit_count <- get_history(
    from = from,
    to = to,
    author = author,
    path = path
  ) %>%
    tidyr::separate(.data$date, into = c("date", "time"), sep = " ") %>%
    dplyr::group_by(.data$date) %>%
    dplyr::summarise(count = dplyr::n()) %>%
    dplyr::filter(
      dplyr::between(as.Date(.data$date), as.Date(from), as.Date(to))
    ) %>%
    dplyr::pull(.data$count) %>%
    sum()

  if (length(commit_count) == 0) {
    commit_count <- 0
  }

  return(commit_count)
}


#' @rdname count_commits
#' @export
get_git_commit_count <- count_commits