适配为文章模版

SD/20230101_文章讨论/index.qmd

@@ -0,0 +1,5 @@
+---
+title: "文章讨论"
+format: revealjs
+---
+

SD/20230101_项目启动/index.qmd

@@ -1,12 +0,0 @@
----
-title: "项目启动汇报"
-format: revealjs
----
-
-# 项目背景
-
-# 科学问题
-
-# 主要进展
-
-# 小结与计划

SD/index.qmd

@@ -2,6 +2,28 @@
 subtitle: "演示材料"
 ---
 
-## [项目启动汇报](./20230101_项目启动/index.qmd)
-
 <iframe title="项目启动汇报" width=800 height=600 src = "./20230101_项目启动/index.html"></iframe>
+
+```{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",
+    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()
+```