forgiving to_call()

tadascience · Mar 9, 2024 · a525856 · a525856
1 parent f3b4728
commit a525856
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/R/auto.R b/R/auto.R
@@ -70,7 +70,7 @@ to_pkg <- function(pkg, type = c("tooltip", "plain"), keep_braces = TRUE, ...) {
 
   url <- downlit::href_package(pkg)
   if (is.na(url)) {
-    return(link_text)
+    return(tags$span(link_text, class = "r-link-pkg-error"))
   }
   link <- tags$a(link_text, href = url, class = "r-link-pkg", target = "_blank")
 
@@ -86,12 +86,16 @@ to_pkg <- function(pkg, type = c("tooltip", "plain"), keep_braces = TRUE, ...) {
 to_call <- function(call, type = c("tooltip", "plain"), keep_pkg_prefix = TRUE, ...) {
   type <- rlang::arg_match(type)
 
-  url <- downlit::autolink_url(call)
   link_text <- if (keep_pkg_prefix) {
     call
   } else {
     glue::glue("{fun}()", fun = stringr::str_extract(call, rx_call, group = 2))
   }
+
+  url <- downlit::autolink_url(call)
+  if (is.na(url)) {
+    return(tags$span(link_text, class = "r-link-pkg-error"))
+  }
   link <- tags$a(link_text, href = url, class = "r-link-call", target = "_blank")
 
   switch(