Merge pull request #7 from tadascience/errors

Forgiving `to_pkg()` and `to_call()`
tadascience · Mar 9, 2024 · b1bad2f · b1bad2f
2 parents cf81948 + a525856
commit b1bad2f
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/R/auto.R b/R/auto.R
@@ -68,9 +68,12 @@ get_title <- function(url) {
 #' @export
 to_pkg <- function(pkg, type = c("tooltip", "plain"), keep_braces = TRUE, ...) {
   type <- rlang::arg_match(type)
+  link_text <- glue::glue(if (keep_braces) "{{{pkg}}}" else "{pkg}")
 
   url <- downlit::href_package(pkg)
-  link_text <- glue::glue(if (keep_braces) "{{{pkg}}}" else "{pkg}")
+  if (is.na(url)) {
+    return(tags$span(link_text, class = "r-link-pkg-error"))
+  }
   link <- tags$a(link_text, href = url, class = "r-link-pkg", target = "_blank")
 
   switch(
@@ -85,12 +88,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(