conditional autolink

etiennebacher · Apr 8, 2024 · dba718b · dba718b
1 parent abf7a18
commit dba718b
Showing 1 changed file with 17 additions and 11 deletions.
diff --git a/R/autolink.R b/R/autolink.R
@@ -1,22 +1,28 @@
 .autolink <- function(path = ".") {
-    # everything wrapped in tryCatch() because especially error prone with weird pandoc memory errors
+
     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))
-    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))
-        }
-    }
 
     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))
-    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))
+
+
+    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))
+            }
         }
     }
 }