27 lines
969 B
Plaintext
27 lines
969 B
Plaintext
---
|
|
subtitle: "Track Changes"
|
|
---
|
|
|
|
|
|
```{r}
|
|
#| include: false
|
|
require(drwateR)
|
|
rmdify::rmd_init()
|
|
```
|
|
|
|
```{r}
|
|
#| output: asis
|
|
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()
|
|
```
|