适配为文章模版

2023-11-10 13:31:46 +08:00
parent db71ec6afa
commit 4c17581235
68 changed files with 15984 additions and 296 deletions
@@ -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()
+```