to(), rework auto() based on downliot

NAMESPACE

@@ -1,8 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
 export(auto)
-export(to)
-importFrom(cli,cli_abort)
-importFrom(rlang,enexpr)
-importFrom(rlang,is_call)
-importFrom(rlang,is_string)

R/auto.R

@@ -6,21 +6,17 @@ autolink_pkg <- function(x) {
   stringr::str_replace_all(
     x, rx_pkg,
     function(pkg) {
-      to(package = stringr::str_extract(pkg, rx_pkg, group = 1))
+      pkg <- stringr::str_extract(pkg, rx_pkg, group = 1)
+      url <- downlit::href_package(pkg)
+      glue::glue('<a href="{url}">{{{pkg}}}</a>')
     }
   )
 }
 
 autolink_call <- function(x) {
-  rx_call <- glue::glue("[{{]({rx_valid_pkg})::({rx_valid_fun})[(][)][}}]")
+  rx_call <- glue::glue("({rx_valid_pkg})::({rx_valid_fun})\\(\\)")
   stringr::str_replace_all(
-    x, rx_call,
-    function(call){
-      to(
-        package = stringr::str_extract(call, rx_call, group = 1),
-        topic   = stringr::str_extract(call, rx_call, group = 2)
-      )
-    }
+    x, rx_call, downlit::autolink
   )
 
 }
@@ -37,5 +33,4 @@ auto <- function() {
 
     default_text_hook(x)
   })
-
 }

README.Rmd

@@ -33,12 +33,11 @@ pak::pak("tadascience/link")
 
 ## Example
 
-This is a basic example which shows you how to solve a common problem:
+Include this in your `Rmd` or `qmd` document to turn 
+`<pkg>::<fun>()` and `{<pkg>}` into hyperlinks. 
 
-```{r example}
-link::to(package = "admiral")
-
-link::to("summarise", package = "dplyr")
-
-link::to(tidyr::gather)
+````
+```{r, echo = FALSE}
+link::auto()
 ```
+````

README.md

@@ -24,15 +24,5 @@ pak::pak("tadascience/link")
 
 ## Example
 
-This is a basic example which shows you how to solve a common problem:
-
-``` r
-link::to(package = "admiral")
-#> <a href="https://pharmaverse.github.io/admiral/">admiral</a>
-
-link::to("summarise", package = "dplyr")
-#> <a href="https://dplyr.tidyverse.org/reference/summarise.html">dplyr::summarise()</a>
-
-link::to(tidyr::gather)
-#> <a href="https://tidyr.tidyverse.org/reference/gather.html">tidyr::gather()</a>
-```
+Include this in your `Rmd` or `qmd` document to turn `<pkg>::<fun>()`
+and `{<pkg>}` into hyperlinks.