26 lines
484 B
Plaintext
26 lines
484 B
Plaintext
---
|
|
subtitle: "研究报告"
|
|
lang: "zh"
|
|
---
|
|
|
|
```{r}
|
|
#| include: false
|
|
|
|
require(drwateR)
|
|
require(rmdify)
|
|
rmdify::rmd_init()
|
|
```
|
|
|
|
```{r}
|
|
#| output: asis
|
|
|
|
data.frame(fd = dir(".", pattern = "[-_]")) |>
|
|
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"))) |>
|
|
dplyr::pull(htmlstr) |>
|
|
paste(collapse = "") |>
|
|
cat()
|
|
|
|
```
|