Create separate index.md for consumption by pkgdown

MikeJohnPage · MikeJohnPage · commit 650ff787cd93 · 2025-06-23T10:17:15.000+02:00
diff --git a/README.Rmd b/README.Rmd
@@ -21,6 +21,41 @@ knitr::opts_chunk$set(
   comment = "#>",
   fig.path = "README-"
 )
+
+clean_output <- function(x, options) {
+  x <- gsub("0x[0-9a-f]+", "0xdeadbeef", x)
+  x <- gsub("dataframe_[0-9]*_[0-9]*", "      dataframe_42_42      ", x)
+  x <- gsub("[0-9]*\\.___row_number ASC", "42.___row_number ASC", x)
+
+  index <- x
+  index <- gsub("─", "-", index)
+  index <- strsplit(paste(index, collapse = "\n"), "\n---\n")[[1]][[2]]
+  writeLines(index, "index.md")
+
+  x <- gsub(
+    '(`vignette[(]"([^"]+)"[)]`)',
+    "[\\1](https://blob.tidyverse.org/articles/\\2.html)",
+    x
+  )
+  x <- fansi::strip_sgr(x)
+  x
+}
+
+options(
+  cli.num_colors = 256,
+  cli.width = 71,
+  width = 71,
+  pillar.bold = TRUE,
+  pillar.max_title_chars = 5,
+  pillar.min_title_chars = 5,
+  pillar.max_footer_lines = 12,
+  conflicts.policy = list(warn = FALSE)
+)
+
+local({
+  hook_source <- knitr::knit_hooks$get("document")
+  knitr::knit_hooks$set(document = clean_output)
+})
 ```
 
 # blob
