feat: improve git branch name detection - fix #33

NEWS.md

@@ -10,6 +10,7 @@ the `CITATION.cff` file
 * Modify `add_citation()` to create two additional files: `CITATION.cff` and
 `.github/workflows/update-citation-cff.yaml`
 * Improve detection of dependencies in `get_deps_*()` functions
+* New feature: `get_git_branch_name()` detect git branch name
 
 
 # rcompendium 1.1

R/add_readme_rmd.R

@@ -123,7 +123,7 @@ add_readme_rmd <- function(type = "package", given = NULL, family = NULL,
   xfun::gsub_file(path, "{{given}}", given, fixed = TRUE)
   xfun::gsub_file(path, "{{family}}", family, fixed = TRUE)
   xfun::gsub_file(path, "{{github}}", github, fixed = TRUE)
-  xfun::gsub_file(path, "{{branch}}", "main", fixed = TRUE)      #
+  xfun::gsub_file(path, "{{branch}}", get_git_branch_name(), fixed = TRUE)
 
 
   ## Message ----

R/utils-gh.R

@@ -170,3 +170,35 @@ is_gh_repo <- function(owner, repo) {
   tryCatch(gh::gh("GET /repos/{owner}/{repo}", repo = repo, 
                   owner = owner), error = function(e) NULL)
 }
+
+
+
+#' **Get current/default git branch name**
+#' 
+#' @noRd
+
+get_git_branch_name <- function() {
+
+  is_git()
+
+  current_branch <- gert::git_branch()
+
+  if (is.null(current_branch)) {
+
+    config <- as.data.frame(gert::git_config_global())
+
+    default_branch <- config[which(config$"name" == "init.defaultbranch"),
+                             "value"]
+
+    if (length(default_branch) == 0) {
+
+      current_branch <- "master"  
+
+    } else {
+
+      current_branch <- default_branch
+    }
+  }
+
+  current_branch
+}