From f4071f1dea8f8208768db0c9f31c5dd8e46eab7b Mon Sep 17 00:00:00 2001
From: Olivier Roy <olivierroy71@hotmail.com>
Date: Fri, 8 Dec 2023 14:46:38 -0500
Subject: [PATCH] Add .url to documentation of data + gh homepage.

---
 R/data.R    | 2 +-
 R/github.R  | 2 +-
 R/pkgdown.R | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/data.R b/R/data.R
index 9eca4db20..8939add05 100644
--- 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
index 818366202..e7236aef4 100644
--- 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
index 534b05f1c..bd4cca2d1 100644
--- 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)
   }