43 lines
799 B
Plaintext
43 lines
799 B
Plaintext
---
|
|
subtitle: "Slides"
|
|
---
|
|
|
|
|
|
```{r}
|
|
#| output: asis
|
|
#| echo: false
|
|
|
|
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()
|
|
```
|