Enable "internal" repositories in use_github() (#1505)

* Enable "internal" repositories in `use_github()`

Closes #1458

* Send a special header

* `.accept` is actually designed for this

R/github.R

@@ -25,6 +25,11 @@
 #'   such that you have permission to create repositories in this
 #'   `organisation`.
 #' @param private If `TRUE`, creates a private repository.
+#' @param visibility Only relevant for organisation-owned repos associated with
+#'   certain GitHub Enterprise products. The special "internal" `visibility`
+#'   grants read permission to all organisation members, i.e. it's intermediate
+#'   between "private" and "public", within GHE. When specified, `visibility`
+#'   takes precedence over `private = TRUE/FALSE`.
 #' @inheritParams git_protocol
 #' @param host GitHub host to target, passed to the `.api_url` argument of
 #'   [gh::gh()]. If unspecified, gh defaults to "https://api.github.com",
@@ -54,6 +59,7 @@
 #' }
 use_github <- function(organisation = NULL,
                        private = FALSE,
+                       visibility = c("public", "private", "internal"),
                        protocol = git_protocol(),
                        host = NULL,
                        auth_token = deprecated(),
@@ -65,6 +71,8 @@ use_github <- function(organisation = NULL,
     deprecate_warn_credentials("use_github")
   }
 
+  visibility_specified <- !missing(visibility)
+  visibility <- match.arg(visibility)
   check_protocol(protocol)
   check_uses_git()
   default_branch <- git_default_branch()
@@ -79,6 +87,20 @@ use_github <- function(organisation = NULL,
     GitHub repo")
   check_no_origin()
 
+  if (is.null(organisation)) {
+    if (visibility_specified) {
+      ui_stop("
+        The {ui_code('visibility')} setting is only relevant for
+        organisation-owned repos, within the context of certain \\
+        GitHub Enterprise products.")
+    }
+    visibility <- if (private) "private" else "public"
+  }
+
+  if (!is.null(organisation) && !visibility_specified) {
+    visibility <- if (private) "private" else "public"
+  }
+
   whoami <- suppressMessages(gh::gh_whoami(.api_url = host))
   if (is.null(whoami)) {
     ui_stop("
@@ -100,8 +122,8 @@ use_github <- function(organisation = NULL,
   repo_desc <- gsub("\n", " ", repo_desc)
   repo_spec <- glue("{owner}/{repo_name}")
 
-  private_string <- if (private) "private " else ""
-  ui_done("Creating {private_string}GitHub repository {ui_value(repo_spec)}")
+  visibility_string <- if (visibility == "public") "" else glue("{visibility} ")
+  ui_done("Creating {visibility_string}GitHub repository {ui_value(repo_spec)}")
   if (is.null(organisation)) {
     create <- gh::gh(
       "POST /user/repos",
@@ -116,7 +138,10 @@ use_github <- function(organisation = NULL,
       org = organisation,
       name = repo_name,
       description = repo_desc,
-      private = private,
+      visibility = visibility,
+      # this is necessary to set `visibility` in GHE 2.22 (but not in 3.2)
+      # hopefully it's harmless when not needed
+      .accept = "application/vnd.github.nebula-preview+json",
       .api_url = host
     )
   }