---
subtitle: "研究报告"
lang: "zh"
format: dwhm-html
---

```{r}
#| include: false

require(drwateR)
require(rmdify)
rmdify::rmd_init()
```

```{r}
#| output: asis
data.frame(fd = dir(".", pattern = "[-_]")) |>
  dplyr::filter(!grepl("_files", fd)) |>
  dplyr::filter(!grepl("quarto", fd)) |>
  dplyr::mutate(
    fn = purrr::map_chr(
      fd,
      ~ file.path(.x, dir(.x, pattern = "index.qmd|index.html"))[1]
    )
  ) |>
  dplyr::transmute(
    htmlstr = purrr::map2_chr(
      fn,
      fd,
      ~ 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()
```