46 lines
831 B
Plaintext
46 lines
831 B
Plaintext
---
|
|
subtitle: "演示材料"
|
|
---
|
|
|
|
|
|
```{r}
|
|
#| echo: false
|
|
#| 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.doc|index.pdf|index.ppt")
|
|
)
|
|
)
|
|
) |>
|
|
dplyr::transmute(
|
|
htmlstr = purrr::map_chr(
|
|
fn,
|
|
~ paste0(
|
|
"## [",
|
|
.x,
|
|
"](",
|
|
.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()
|
|
```
|