Open a PR using a selected template

open_pr.R

.get_active_branch <- function() {
  res <- system("git status", intern = TRUE)
  stringr::str_remove(res[1], "On branch ")
}

#' It opens a PR in the repository with the selected template
#'
#' The only way to open a PR with a specific template is to use the query parameters:
#' https://docs.github.com/en/pull-requests/collaborating-with-pull-requests/proposing-changes-to-your-work-with-pull-requests/using-query-parameters-to-create-a-pull-request
.open_pr <- function(
    repository,
    from = .get_active_branch(),
    to = "dev",
    template = "dev.md") {
  browseURL(glue::glue("{repository}/compare/{to}...{from}?expand=1&template={template}"))
}