course/su2026rwep
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update template

Browse Source
This commit is contained in:
Ming Su
2024-10-29 16:17:04 +08:00
parent a15adfaa91
commit acf2413c0d
4 changed files with 38 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TC/index.qmd
+9 -9
View File
@@ -6,20 +6,20 @@ subtitle: "Track Changes"
```{r}
#| include: false
require(drwateR)
require(rmdify)
rmdify::rmd_init()
```
```{r}
#| output: asis
data.frame(fn = dir(".", pattern = "-.*.qmd")) |>
dplyr::mutate(rawfn = gsub("^.*_", "", fn)) |>
dplyr::mutate(time1 = lubridate::ymd_h(gsub("-.*$", "", fn))) |>
dplyr::mutate(time2 = lubridate::ymd_h(gsub("^.*-(.*)_.*$", "\\1", fn))) |>
dplyr::arrange(dplyr::desc(time2), rawfn, dplyr::desc(time1)) |>
dplyr::mutate(htmlstr = paste0("- [**", rawfn, "**: ",
format(time1, "%y-%m-%d %H:%M"), " ⇨ **", format(time2, "%Y-%m-%d %H:%M"),
"**](", gsub("qmd$", "html", fn), ")\n\n")) |>
data.frame(fn = dir("./", pattern = ".*-.*.docx")) |>
# dplyr::mutate(oldfn = gsub("^MS([0-9]*)-([0-9]*)_([a-z0-9]*)-([a-z0-9]*).docx$", "MS\\1_\\3.docx", fn)) |>
dplyr::mutate(newfn = gsub("^MS([0-9]*)-([0-9]*)_([a-z0-9]*)-([a-z0-9]*).docx$", "MS\\2_\\4.docx", fn)) |>
# dplyr::mutate(time1 = lubridate::ymd_hm(gsub("MS([0-9]*)_([a-z0-9]*).docx$", "\\1", oldfn))) |>
dplyr::mutate(time2 = lubridate::ymd_hm(gsub("MS([0-9]*)_([a-z0-9]*).docx$", "\\1", newfn))) |>
# dplyr::arrange(dplyr::desc(time2), newfn, dplyr::desc(time1)) |>
# dplyr::mutate(htmlstr = paste0("- [**", oldfn, "**](MS/", oldfn, ") ← [**",
# newfn, "**](MS/", newfn, ") ⇨ [**", fn, "**](", fn, ")\n\n")) |>
dplyr::mutate(htmlstr = paste0("[- ", time2, ": **", fn, "**](", fn, ")\n\n")) |>
dplyr::pull(htmlstr) |>
paste(collapse = "") |>
cat()