R/init_autonewsmd.R

In autonewsmd: Auto-Generate Changelog using Conventional Commits

# Auto-Generate Changelog using Conventional Commits
# Copyright (C) 2022 Lorenz A. Kapsner
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

init_autonewsmd <- function(self, private, repo_name, repo_path, repo_remotes) {
  if (!requireNamespace("git2r", quietly = TRUE)) {
    stop(
      paste0(
        "Package \"git2r\" must be installed to use ",
        "\"autonewsmd\"."
      ),
      call. = FALSE
    )
  }

  stopifnot(
    "`repo_name` must be a character string" = is.character(repo_name),
    "`repo_remotes` must be a character string" = ifelse(
      test = is.null(repo_remotes),
      yes = TRUE,
      no = is.character(repo_remotes)
    ),
    "`repo_path` must be a character string and \
    the directory must exist on the file system" = ifelse(
      test = is.null(repo_path),
      yes = TRUE,
      no = is.character(repo_path) && dir.exists(repo_path)
    )
  )
  if (is.null(repo_path)) {
    message(
      "No 'repo_path' provided. Setting 'repo_path' to '.'."
    )
    repo_path <- "."
  }
  self$repo_name <- repo_name
  private$repo_path <- normalizePath(repo_path)
  private$repo <- git2r::repository(path = private$repo_path)
  repo_url <- git2r::remote_url(
    repo = private$repo,
    remote = repo_remotes
  )
  repo_url <- gsub(
    pattern = "\\.git$",
    replacement = "",
    x = repo_url
  )
  ru_len <- length(repo_url)
  if (ru_len > 1) {
    msg <- paste0(
      "More than one associated remote repositories detected.\n",
      "Which one should be used for generating the NEWS.md file?\n\n"
    )
    msg_repos <- paste0(seq_along(repo_url), ") ", repo_url, "\n")
    msg <- paste0(
      msg, paste0(msg_repos, collapse = "")
    )
    message(msg)
    valid_choice <- FALSE
    while (!valid_choice) {
      choice <- readline(prompt = "Please enter the desired repository: ")
      if (!is.integer(as.integer(choice)) || (as.integer(choice) < 1) ||
          (as.integer(choice) > ru_len)) {
        message(paste0("\nPlease enter an integer between 1 and ", ru_len))
      } else {
        repo_url <- repo_url[as.integer(choice)]
        valid_choice <- TRUE
      }
    }
  }
  private$repo_url <- repo_url
}