adds test for autolink_curly

R/downlit-html.R

@@ -91,21 +91,6 @@ tweak_children <- function(node, xpath, fun, ..., replace = c("node", "contents"
   invisible()
 }
 
-autolink_curly <- function(text) {
-  package_name <- extract_curly_package(text)
-  if (is.na(package_name)) {
-    return(NA_character_)
-  }
-
-  href <- href_package(package_name)
-  if (is.na(href)) {
-    return(NA_character_)
-  }
-
-  paste0("<a href='", href, "'>", package_name, "</a>")
-}
-
-
 as_xml <- function(x) {
   xml2::xml_contents(xml2::xml_contents(xml2::read_html(x)))[[1]]
 }

R/link.R

@@ -21,7 +21,6 @@ autolink <- function(text) {
   paste0("<a href='", href, "'>", escape_html(text), "</a>")
 }
 
-
 #' @export
 #' @rdname autolink
 autolink_url <- function(text) {
@@ -33,6 +32,21 @@ autolink_url <- function(text) {
   href_expr(expr[[1]])
 }
 
+autolink_curly <- function(text) {
+  package_name <- extract_curly_package(text)
+  if (is.na(package_name)) {
+    return(NA_character_)
+  }
+
+  href <- href_package(package_name)
+  if (is.na(href)) {
+    return(NA_character_)
+  }
+
+  paste0("<a href='", href, "'>", package_name, "</a>")
+}
+
+
 # Helper for testing
 href_expr_ <- function(expr, ...) {
   href_expr(substitute(expr), ...)

tests/testthat/test-link.R

@@ -50,6 +50,18 @@ test_that("can link to functions in registered packages", {
   expect_equal(href_expr_(addterm.default()), href_topic_remote("addterm", "MASS"))
 })
 
+test_that("can link to package names in registered packages", {
+  expect_equal(
+    autolink_curly("{downlit}"),
+    "<a href='https://downlit.r-lib.org/'>downlit</a>"
+  )
+
+  expect_equal(autolink_curly("{package}"), NA_character_)
+
+  # No curly = no link
+  expect_equal(autolink_curly(""), NA_character_)
+})
+
 test_that("can link to functions in base packages", {
   expect_equal(href_expr_(abbreviate()), href_topic_remote("abbreviate", "base"))
   expect_equal(href_expr_(median()), href_topic_remote("median", "stats"))