feat: full whitelist

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
+export(default_allowlist)
 export(use_agent)
 export(use_ai)
 export(use_github_copilot)

R/aaa-shared_params.R

@@ -5,8 +5,8 @@
 #'
 #' @param agents_lines (`character`) Lines of `AGENTS.md`.
 #' @param allowlist (`character`) Hostnames to add to the GitHub Copilot coding
-#'   agent firewall allowlist. Defaults to a curated set of R and GitHub
-#'   domains.
+#'   agent firewall allowlist. Defaults to [default_allowlist()], a curated set
+#'   of R and GitHub domains.
 #' @param call (`environment`) The caller environment for error messages.
 #' @param data (`list`) Named list of whisker template variables for rendering.
 #' @param fields (`character`) Field name(s) to read from `DESCRIPTION`.
@@ -16,7 +16,7 @@
 #' @param new_row (`character(1)`) A pre-built skill row string, as produced by
 #'   `.make_skill_row()`.
 #' @param open (`logical(1)`) Whether to open the file after creation.
-#' @param overwrite (`logical(1)`) Whether to overwrite an existing file.
+#' @param overwrite (`logical(1)`) Whether to overwrite existing file(s).
 #'   Defaults to `FALSE`.
 #' @param owner (`character(1)`) GitHub repository owner (user or organization).
 #' @param repo (`character(1)`) GitHub repository name.

R/use_ai.R

@@ -27,19 +27,7 @@ use_ai <- function(
   overwrite = FALSE,
   open = rlang::is_interactive(),
   gh_token = gh::gh_token(),
-  allowlist = c(
-    "api.github.com",
-    "api2r.org",
-    "bioconductor.org",
-    "cloud.r-project.org",
-    "CRAN.R-project.org",
-    "docs.github.com",
-    "r-lib.org",
-    "rstudio.github.io",
-    "tidymodels.org",
-    "tidyverse.org",
-    "wrangle.zone"
-  ),
+  allowlist = default_allowlist(),
   skills = c(
     "create-issue",
     "document",

R/use_github_copilot.R

@@ -4,8 +4,6 @@
 #' `.github/workflows/` directory. Also calls [use_github_copilot_whitelist()]
 #' to configure the coding agent firewall allowlist.
 #'
-#' @param overwrite (`logical(1)`) Whether to overwrite existing files. Defaults
-#'   to `FALSE`.
 #' @inheritParams .shared-params
 #' @returns The path to the installed
 #'   `.github/workflows/copilot-setup-steps.yml`, invisibly.
@@ -16,19 +14,7 @@
 use_github_copilot <- function(
   overwrite = FALSE,
   open = rlang::is_interactive(),
-  allowlist = c(
-    "api.github.com",
-    "api2r.org",
-    "bioconductor.org",
-    "cloud.r-project.org",
-    "CRAN.R-project.org",
-    "docs.github.com",
-    "r-lib.org",
-    "rstudio.github.io",
-    "tidymodels.org",
-    "tidyverse.org",
-    "wrangle.zone"
-  ),
+  allowlist = default_allowlist(),
   gh_token = gh::gh_token()
 ) {
   overwrite <- stbl::to_lgl_scalar(overwrite)

R/use_github_copilot_whitelist.R

@@ -13,19 +13,7 @@
 #'
 #'   use_github_copilot_whitelist()
 use_github_copilot_whitelist <- function(
-  allowlist = c(
-    "api.github.com",
-    "api2r.org",
-    "bioconductor.org",
-    "cloud.r-project.org",
-    "CRAN.R-project.org",
-    "docs.github.com",
-    "r-lib.org",
-    "rstudio.github.io",
-    "tidymodels.org",
-    "tidyverse.org",
-    "wrangle.zone"
-  ),
+  allowlist = default_allowlist(),
   gh_token = gh::gh_token()
 ) {
   repo_parts <- .extract_repo_from_desc()
@@ -43,6 +31,37 @@ use_github_copilot_whitelist <- function(
   invisible(NULL)
 }
 
+#' Curated R and GitHub domains
+#'
+#' A curated set of R and GitHub domains to add to the GitHub Copilot coding
+#' agent firewall allowlist, or other agent domain whitelists.
+#'
+#' @returns A character vector of suggested domains.
+#' @export
+#'
+#' @examples
+#' default_allowlist()
+default_allowlist <- function() {
+  c(
+    "api.github.com",
+    "api2r.org",
+    "bioconductor.org",
+    "cloud.r-project.org",
+    "CRAN.R-project.org",
+    "docs.github.com",
+    "github.com",
+    "hadley.nz",
+    "r-lib.org",
+    "r-pkgs.org",
+    "r-project.org",
+    "rstudio.com",
+    "rstudio.github.io",
+    "tidymodels.org",
+    "tidyverse.org",
+    "wrangle.zone"
+  )
+}
+
 #' Call the GitHub API to set the Copilot allowlist
 #'
 #' @inheritParams .shared-params