Add .url to documentation of data + gh homepage.

r-lib · Dec 8, 2023 · f4071f1 · f4071f1
1 parent 69e7b82
commit f4071f1
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/data.R b/R/data.R
@@ -68,7 +68,7 @@ use_data <- function(...,
   check_files_absent(proj_path(paths), overwrite = overwrite)
 
   ui_done("Saving {ui_value(unlist(objs))} to {ui_value(paths)}")
-  if (!internal) ui_todo("Document your data (see {ui_value('https://r-pkgs.org/data.html')})")
+  if (!internal) ui_todo("Document your data (see {.url https://r-pkgs.org/data.html})")
 
   envir <- parent.frame()
   mapply(

diff --git a/R/github.R b/R/github.R
@@ -153,7 +153,7 @@ use_github <- function(organisation = NULL,
   )
   withr::defer(view_url(create$html_url))
 
-  ui_done("Setting remote {ui_value('origin')} to {ui_value(origin_url)}")
+  ui_done("Setting remote {ui_value('origin')} to {.url {origin_url}}")
   use_git_remote("origin", origin_url)
 
   if (is_package()) {

diff --git a/R/pkgdown.R b/R/pkgdown.R
@@ -106,7 +106,7 @@ use_pkgdown_url <- function(url, tr = NULL) {
   gh <- gh_tr(tr)
   homepage <- gh("GET /repos/{owner}/{repo}")[["homepage"]]
   if (is.null(homepage) || homepage != url) {
-    ui_done("Setting {ui_value(url)} as homepage of GitHub repo \\
+    ui_done("Setting {.url {url}} as homepage of GitHub repo \\
       {ui_value(tr$repo_spec)}")
     gh("PATCH /repos/{owner}/{repo}", homepage = url)
   }