From 9cf1833b2c3f8c75c0a3da4770bd520628cdf5e4 Mon Sep 17 00:00:00 2001
From: olivroy <52606734+olivroy@users.noreply.github.com>
Date: Wed, 10 Apr 2024 06:52:20 -0400
Subject: [PATCH] Make code runnable

---
 R/github_token.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/github_token.R b/R/github_token.R
index 4cb02e7a4..f4f25d8dd 100644
--- a/R/github_token.R
+++ b/R/github_token.R
@@ -68,7 +68,7 @@ create_github_token <- function(scopes = c("repo", "user", "gist", "workflow"),
 
   hint <- code_hint_with_host("gitcreds::gitcreds_set", host)
   ui_bullets(c(
-    "_" = "Call {.code {hint}} to register this token in the local Git
+    "_" = "Call {.run {hint}} to register this token in the local Git
            credential store.",
     "i" = "It is also a great idea to store this token in any
            password-management software that you use."
@@ -130,14 +130,14 @@ pat_sitrep <- function(host = "https://github.com",
 
   if (!have_pat) {
     kv_line("Personal access token for {.val {host}}", NULL)
-    hint <- code_hint_with_host("create_github_token", host, "host")
+    hint <- code_hint_with_host("usethis::create_github_token", host, "host")
     ui_bullets(c(
-      "_" = "To create a personal access token, call {.code {hint}}."
+      "_" = "To create a personal access token, call {.run {hint}}."
     ))
     hint <- code_hint_with_host("gitcreds::gitcreds_set", host)
     url <- "https://usethis.r-lib.org/articles/articles/git-credentials.html"
     ui_bullets(c(
-      "_" = "To store a token for current and future use, call {.code {hint}}.",
+      "_" = "To store a token for current and future use, call {.run {hint}}.",
       "i" = "Read more in the {.href [Managing Git(Hub) Credentials]({url})} article."
     ))
     return(invisible(FALSE))