Add index page for revealjs examples

this allows easier testing

Author: cderv

_freeze/docs/presentations/revealjs/examples/index/execute-results/html.json

@@ -0,0 +1,19 @@
+{
+  "hash": "714353627ff1c2493943516b2eea0cb1",
+  "result": {
+    "engine": "knitr",
+    "markdown": "---\ntitle: All revealjs examples\nformat:\n  revealjs: \n    slide-level: 0\n    slide-number: c/t\n# listing: default\n---\n\n* [background-color](background-color.qmd)\n* [background-no-title](background-no-title.qmd)\n* [code-echo](code-echo.qmd)\n* [columns](columns.qmd)\n* [creating-slides-1](creating-slides-1.qmd)\n\n----\n\n* [creating-slides-2](creating-slides-2.qmd)\n* [creating-slides-3](creating-slides-3.qmd)\n* [executable-code-figure-size](executable-code-figure-size.qmd)\n* [footer-and-logo](footer-and-logo.qmd)\n* [image-background](image-background.qmd)\n\n----\n\n* [incremental-lists-1](incremental-lists-1.qmd)\n* [incremental-lists-2](incremental-lists-2.qmd)\n* [incremental-lists-3](incremental-lists-3.qmd)\n* [incremental-pause](incremental-pause.qmd)\n* [line-highlighting-1](line-highlighting-1.qmd)\n\n----\n\n* [line-highlighting-2](line-highlighting-2.qmd)\n* [line-highlighting-3](line-highlighting-3.qmd)\n* [line-highlighting-4](line-highlighting-4.qmd)\n* [per-slide-footer](per-slide-footer.qmd)\n* [scrollable-and-smaller](scrollable-and-smaller.qmd)\n\n----\n\n* [scrollable](scrollable.qmd)\n* [slide-with-speaker-notes](slide-with-speaker-notes.qmd)\n* [smaller](smaller.qmd)\n* [tabset](tabset.qmd)\n",
+    "supporting": [],
+    "filters": [
+      "rmarkdown/pagebreak.lua"
+    ],
+    "includes": {
+      "include-after-body": [
+        "\n<script>\n  // htmlwidgets need to know to resize themselves when slides are shown/hidden.\n  // Fire the \"slideenter\" event (handled by htmlwidgets.js) when the current\n  // slide changes (different for each slide format).\n  (function () {\n    // dispatch for htmlwidgets\n    function fireSlideEnter() {\n      const event = window.document.createEvent(\"Event\");\n      event.initEvent(\"slideenter\", true, true);\n      window.document.dispatchEvent(event);\n    }\n\n    function fireSlideChanged(previousSlide, currentSlide) {\n      fireSlideEnter();\n\n      // dispatch for shiny\n      if (window.jQuery) {\n        if (previousSlide) {\n          window.jQuery(previousSlide).trigger(\"hidden\");\n        }\n        if (currentSlide) {\n          window.jQuery(currentSlide).trigger(\"shown\");\n        }\n      }\n    }\n\n    // hookup for slidy\n    if (window.w3c_slidy) {\n      window.w3c_slidy.add_observer(function (slide_num) {\n        // slide_num starts at position 1\n        fireSlideChanged(null, w3c_slidy.slides[slide_num - 1]);\n      });\n    }\n\n  })();\n</script>\n\n"
+      ]
+    },
+    "engineDependencies": {},
+    "preserve": {},
+    "postProcess": true
+  }
+}

docs/presentations/revealjs/examples/index.qmd

@@ -1,4 +1,31 @@
 ---
 title: All revealjs examples
+format:
+  revealjs: 
+    slide-level: 0
+    slide-number: c/t
 # listing: default
 ---
+
+````{r}
+#| echo: false
+#| output: asis
+files <- fs::dir_ls('.', regexp = '^[^_].*[.]qmd$', all = TRUE)
+files <- files[!files %in% c("index.qmd")]
+links <- glue::glue("* [{fs::path_ext_remove(files)}]({files})")
+
+bucket_size <- 5
+buckets <- split(links, ceiling(seq_along(links) / bucket_size))
+
+# Add new slides after each bucket except last
+for (i in 1:(length(buckets)-1)) {
+  buckets[[i]] <- c(buckets[[i]], "", "----", "")
+}
+
+purrr::map(buckets, \(x) {
+  glue::glue("
+{glue::glue_collapse(x, sep = '\n')}
+")
+}) |> unlist() |> cat(sep = "\n")
+
+````