---
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()

```