Also set url in use_rdev_pkgdown()

NEWS.md

@@ -1,3 +1,7 @@
+# rdev 1.8.4
+
+* Also set GitHub Pages URL in `use_rdev_pkgdown()`
+
 # rdev 1.8.3
 
 * Check if `pandoc` is in `PATH` on launch (update: `use_rprofile()`)

R/setup.R

@@ -600,7 +600,7 @@ use_analysis_package <- function(use_quarto = TRUE, prompt = FALSE) {
 #'   `pkgdown` to fix rendering of GitHub-style
 # nolint next: line_length_linter.
 #'   [task lists](https://docs.github.com/en/get-started/writing-on-github/working-with-advanced-formatting/about-task-lists),
-#'   and disables the [bslib::bs_theme()] `"shiny"` preset.
+#'   adds the GitHub Pages URL, and disables the [bslib::bs_theme()] `"shiny"` preset.
 #'
 #' @inheritParams usethis::use_pkgdown
 #'
@@ -610,6 +610,8 @@ use_rdev_pkgdown <- function(config_file = "_pkgdown.yml", destdir = "docs") {
   fs::dir_create("pkgdown")
   usethis::use_template("extra.css", save_as = "pkgdown/extra.css", package = "rdev")
   pkg <- yaml::read_yaml(config_file)
+  urls <- desc::desc_get_urls()
+  pkg$url <- urls[1]
   pkg$template$bslib$preset <- "bootstrap"
   # workaround for RStudio race condition
   if (rlang::is_interactive()) {

tests/testthat/test-setup.R

@@ -279,10 +279,12 @@ test_that("use_rdev_pkgdown adds customizations", {
 
 test_that("use_rdev_pkgdown pauses when running interactively", {
   pkg <- list(url = NULL, template = list(bootstrap = 5L))
+  desc_urls <- c("https://example.github.io/package/", "https://github.com/example/package")
   mockery::stub(use_rdev_pkgdown, "usethis::use_pkgdown", NULL)
   mockery::stub(use_rdev_pkgdown, "fs::dir_create", NULL)
   mockery::stub(use_rdev_pkgdown, "usethis::use_template", NULL)
   mockery::stub(use_rdev_pkgdown, "yaml::read_yaml", pkg)
+  mockery::stub(use_rdev_pkgdown, "desc::desc_get_urls", desc_urls)
   mockery::stub(use_rdev_pkgdown, "yaml::write_yaml", NULL)
 
   expect_output(