适配为文章模版

RP/index.qmd

@@ -1,5 +1,6 @@
 ---
 subtitle: "研究报告"
+lang: "zh"
 ---
 
 ```{r}
@@ -12,9 +13,19 @@ rmdify::rmd_init()
 
 ```{r}
 #| output: asis
-dir(".", pattern = "[_-]") |>
-purrr::map(~paste0("## [", .x, "](", .x, "/index.qmd)\n\n")) |>
-  unlist() |>
+
+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()
 
 ```