---
subtitle: "Slides"
author: ""
execute:
  freeze: false
---


```{r}
#| output: asis

data.frame(fd = dir(".", pattern = "\\d{4}[-_]")) |>
  dplyr::mutate(
    fn = purrr::map_chr(
      fd,
      ~ file.path(.x, dir(.x, pattern = "index.qmd|index.html|index.ppt*"))[1]
    )
  ) |>
  dplyr::transmute(
    htmlstr = purrr::map2_chr(fn, fd, \(x, y) {
      paste0(
        "## [",
        y,
        "](",
        x,
        ")\n\n",
        ifelse(
          !grepl("qmd$", x),
          "",
          paste0(
            "<iframe title='",
            gsub("^.*[_-]([^\\/]*)\\/.*$", "\\1", x),
            "' width=800 height=600 src = '",
            gsub("qmd$", "html", x),
            "'></iframe>\n\n"
          )
        )
      )
    })
  ) |>
  dplyr::pull(htmlstr) |>
  paste(collapse = "") |>
  cat()
```
