render_docs(autolink = TRUE) uses downlit

.github/workflows/altdoc.yaml

@@ -40,7 +40,7 @@ jobs:
           install.packages(".", repos = NULL, type = "source")
           install.packages("pkgload")
           pkgload::load_all()
-          altdoc::render_docs(parallel = TRUE, freeze = FALSE)
+          altdoc::render_docs(parallel = FALSE, freeze = FALSE)
         shell: Rscript {0}
 
       - name: Deploy to GitHub pages 🚀

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: altdoc
 Title: Package Documentation Websites with 'Quarto', 'Docsify', 'Docute', or 'MkDocs'
-Version: 0.3.0.9002
+Version: 0.3.0.9003
 Authors@R: 
     c(person(given = "Etienne",
              family = "Bacher",
@@ -24,6 +24,7 @@ Imports:
     cli,
     desc,
     evaluate,
+    downlit,
     fs,
     quarto,
     tools,

NEWS.md

@@ -17,6 +17,7 @@
   execute:
     freeze: auto
   ```
+* `render_docs(autolink = TRUE)` uses the `downlit` package to automatically link function calls to their documentation on the web.
 
 ### Other changes
 

R/autolink.R

@@ -0,0 +1,28 @@
+.autolink <- function(path = ".") {
+
+    html_files <- c(
+        fs::dir_ls(fs::path_join(c(path, "docs/vignettes")), regexp = "\\.html$", fail = FALSE),
+        fs::dir_ls(fs::path_join(c(path, "docs/man")), regexp = "\\.html$", fail = FALSE))
+
+    md_files <- c(
+        fs::dir_ls(fs::path_join(c(path, "docs/vignettes")), regexp = "\\.md$", fail = FALSE),
+        fs::dir_ls(fs::path_join(c(path, "docs/man")), regexp = "\\.md$", fail = FALSE))
+
+
+    if (isTRUE(.doc_type(path) %in% "quarto_website")) {
+        for (h in html_files) {
+            tmp <- try(downlit::downlit_html_path(h, h), silent = TRUE)
+            if (inherits(tmp, "try-error")) {
+                cli::cli_alert_danger(sprintf("Failed to auto-link: %s", h))
+            }
+        }
+
+    } else {
+        for (m in md_files) {
+            tmp <- try(downlit::downlit_md_path(m, m), silent = TRUE)
+            if (inherits(tmp, "try-error")) {
+                cli::cli_alert_danger(sprintf("Failed to auto-link: %s", h))
+            }
+        }
+    }
+}

R/render_docs.R

@@ -7,6 +7,7 @@
 #' @param verbose Logical. Print Rmarkdown or Quarto rendering output.
 #' @param parallel Logical. Render man pages and vignettes in parallel using the `future` framework. In addition to setting this argument to TRUE, users must define the parallelism plan in `future`. See the examples section below.
 #' @param freeze Logical. If TRUE and a man page or vignette has not changed since the last call to `render_docs()`, that file is skipped. File hashes are stored in `altdoc/freeze.rds`. If that file is deleted, all man pages and vignettes will be rendered anew.
+#' @param autolink Logical. TRUE to link function names and calls to web-based documentation. See the Autolink section below for details.
 #' @inheritParams setup_docs
 #' @export
 #'
@@ -32,6 +33,7 @@
 #' @template altdoc_variables
 #' @template altdoc_preambles
 #' @template altdoc_freeze
+#' @template altdoc_autolink
 #'
 #' @examples
 #' if (interactive()) {
@@ -44,7 +46,7 @@
 #'   render_docs(parallel = TRUE)
 #'
 #' }
-render_docs <- function(path = ".", verbose = FALSE, parallel = FALSE, freeze = FALSE) {
+render_docs <- function(path = ".", verbose = FALSE, parallel = FALSE, freeze = FALSE, autolink = FALSE) {
 
   path <- .convert_path(path)
   tool <- .doc_type(path)
@@ -92,6 +94,7 @@ render_docs <- function(path = ".", verbose = FALSE, parallel = FALSE, freeze =
   cli::cli_h1("Vignettes")
   fail_vignettes <- .import_vignettes(src_dir = path, tar_dir = docs_dir, tool = tool, verbose = verbose, parallel = parallel, freeze = freeze)
 
+
   # Error so that CI fails
   if (length(fail_vignettes) > 0 & length(fail_man) > 0) {
     cli::cli_abort("There were some failures when rendering vignettes and man pages.")
@@ -104,6 +107,11 @@ render_docs <- function(path = ".", verbose = FALSE, parallel = FALSE, freeze =
   cli::cli_h1("Update HTML")
   .import_settings(path = path, tool = tool, verbose = verbose, freeze = freeze)
 
+  if (isTRUE(autolink)) {
+    cli::cli_h1("Auto-Link")
+    .autolink(path)
+  }
+
   cli::cli_h1("Complete")
   cli::cli_alert_success("Documentation updated.")
 }

R/settings_docute.R

@@ -60,8 +60,10 @@
         tmp <- sprintf("{title: '%s', link: '%s'}", titles, fn_vignettes)
         tmp <- paste(tmp, collapse = ", ")
         sidebar <- paste(sidebar, collapse = "\n")
-        sidebar <- gsub("\\$ALTDOC_VIGNETTE_BLOCK", "%s", sidebar)
-        sidebar <- sprintf(sidebar, tmp)
+        if (isTRUE(grepl("\\$ALTDOC_VIGNETTE_BLOCK", sidebar))) {
+            sidebar <- gsub("\\$ALTDOC_VIGNETTE_BLOCK", "%s", sidebar)
+            sidebar <- sprintf(sidebar, tmp)
+        }
         sidebar <- strsplit(sidebar, "\n")[[1]]
     } else {
         sidebar <- sidebar[!grepl("\\$ALTDOC_VIGNETTE_BLOCK", sidebar)]
@@ -81,8 +83,10 @@
         tmp <- sprintf("{title: '%s', link: '%s'}", titles, fn_man)
         tmp <- paste(tmp, collapse = ", ")
         sidebar <- paste(sidebar, collapse = "\n")
-        sidebar <- gsub("\\$ALTDOC_MAN_BLOCK", "%s", sidebar)
-        sidebar <- sprintf(sidebar, tmp)
+        if (isTRUE(grepl("\\$ALTDOC_MAN_BLOCK", sidebar))) {
+            sidebar <- gsub("\\$ALTDOC_MAN_BLOCK", "%s", sidebar)
+            sidebar <- sprintf(sidebar, tmp)
+        }
         sidebar <- strsplit(sidebar, "\n")[[1]]
     } else {
         sidebar <- sidebar[!grepl("\\$ALTDOC_MAN_BLOCK", sidebar)]

R/setup_docs.R

@@ -109,6 +109,7 @@ setup_docs <- function(tool, path = ".", overwrite = FALSE) {
   .add_rbuildignore("^docs$", path = path)
   .add_rbuildignore("^altdoc$", path = path)
   .add_gitignore("altdoc/freeze.rds", path = path)
+  .add_pkgdown(path = path)
   if (tool == "quarto_website") {
     .add_rbuildignore("^_quarto$", path = path)
     .add_gitignore("_quarto/*", path = path)

R/utils.R

@@ -127,6 +127,26 @@
 }
 
 
+.add_pkgdown <- function(path = ".") {
+  if (!isTRUE(.dir_is_package(path))) {
+    stop(".add_pkgdown() must be run from the root of a package.", call. = FALSE)
+  }
+  url <- setdiff(desc::desc_get_urls(), .gh_url(path))
+  fn <- fs::path_join(c(path, "altdoc/pkgdown.yml"))
+  if (!fs::file_exists(fn) && length(url) > 0) {
+    url <- url[1]
+    vig <- fs::path_join(c(url, "vignettes"))
+    man <- fs::path_join(c(url, "man"))
+    content <- c(
+      "urls:",
+      paste("  reference:", man),
+      paste("  article:", vig),
+      "")
+    cli::cli_alert_info("Adding altdoc/pkgdown.yml file.")
+    writeLines(content, fn)
+  }
+}
+
 
 .add_rbuildignore <- function(x = "^docs$", path = ".") {
   if (!isTRUE(.dir_is_package(path))) {

altdoc/pkgdown.yml

@@ -0,0 +1,3 @@
+urls:
+  reference: https://altdoc.etiennebacher.com/man
+  article: https://altdoc.etiennebacher.com/vignettes

man-roxygen/altdoc_autolink.R

@@ -0,0 +1,9 @@
+#' @section Auto-link:
+#' 
+#' When the `autolink` argument is `TRUE`, `altdoc` will use the `downlit` package to replace the function names on the package website by links to web-based package documentation. This works for base R libraries and any package published on CRAN.
+#'
+#' To allow internal links to functions documented by `altdoc`, we need to include links to correct URLs in the `altdoc/pkgdown.yml` file. By default, this file is populated with links to the first URL in the `DESCRIPTION`. When calling `render_docs(autolink=TRUE)`, the `pkgdown.yml` file is moved to the root of the website.
+#'
+#' Importantly, `downlit` requires the `pkgdown.yml` to be live on the website to create links. This means that links will generally not be updated when making purely local changes. Also, links may not be updated the first time an `altdoc` website is published to the web.
+#'
+#' Note that the `autolink` argument works best for Quarto-based websites. `mkdocs` appears to ignore `downlit` annotations altogether. `docute` and `docsify` display `downlit` annotations, but CSS styling and code highlighting sometimes suffer.

man-roxygen/altdoc_freeze.R

@@ -1,4 +1,4 @@
-#' @section Freeze
+#' @section Freeze:
 #' 
 #' When working on a package, running `render_docs()` to preview changes can be a time-consuming road block. The argument `freeze = TRUE` tries to improve the experience by preventing rerendering of files that have not changed since the last time `render_docs()` was ran. Note that changes to package internals will not cause a rerender, so rerendering the entire docs can still be necessary. 
 #' 

tests/testthat/test-render_docs.R

@@ -139,6 +139,32 @@ test_that("quarto: no error for basic workflow", {
 })
 
 
+test_that("quarto: autolink", {
+  skip_on_cran()
+  skip_if(.is_windows() && .on_ci(), "Windows on CI")
+
+  ### setup: create a temp package using the structure of testpkg.altdoc
+  path_to_example_pkg <- fs::path_abs(test_path("examples/testpkg.altdoc"))
+  create_local_project()
+  fs::dir_delete("R")
+  fs::dir_copy(path_to_example_pkg, ".")
+  all_files <- list.files("testpkg.altdoc", full.names = TRUE)
+  for (i in all_files) {
+    fs::file_move(i, ".")
+  }
+  fs::dir_delete("testpkg.altdoc")
+
+  ### generate docs
+  install.packages(".", repos = NULL, type = "source")
+  fs::file_move("README.Rmd", "README.qmd") # special thing quarto
+  setup_docs("quarto_website")
+  expect_no_error(render_docs(verbose = .on_ci(), autolink = TRUE))
+
+  tmp <- .readlines("docs/vignettes/test.html")
+  expect_true(any(grepl("https://rdrr.io/r/base/library.html", tmp, fixed = TRUE)))
+})
+
+
 # Test failures ------------------------------
 
 test_that("render_docs errors if vignettes fail", {