update
This commit is contained in:
+7
-7
@@ -1,8 +1,10 @@
|
||||
---
|
||||
subtitle: "Report"
|
||||
subtitle: "Reports"
|
||||
author: ""
|
||||
execute:
|
||||
freeze: false
|
||||
---
|
||||
|
||||
|
||||
```{r}
|
||||
#| output: asis
|
||||
data.frame(fd = dir(".", pattern = "\\d{4}[-_]")) |>
|
||||
@@ -26,11 +28,9 @@ data.frame(fd = dir(".", pattern = "\\d{4}[-_]")) |>
|
||||
!grepl("qmd$", .x),
|
||||
"",
|
||||
paste0(
|
||||
"<iframe title='",
|
||||
gsub("^.*[_-]([^\\/]*)\\/.*$", "\\1", .x),
|
||||
"' width=800 height=600 src = '",
|
||||
gsub("qmd$", "html", .x),
|
||||
"'></iframe>\n\n"
|
||||
"{{< pdf ",
|
||||
gsub("qmd$", "pdf", .x),
|
||||
" width=400 height=510 button=\"Download\" >}}\n\n"
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user