29 lines
539 B
Plaintext
29 lines
539 B
Plaintext
---
|
|
subtitle: "Track Changes"
|
|
---
|
|
|
|
```{r}
|
|
#| output: asis
|
|
data.frame(fn = dir("./", pattern = ".*-.*.docx")) |>
|
|
dplyr::mutate(
|
|
newfn = gsub(
|
|
"^MS([0-9]*)-([0-9]*)_([a-z0-9]*)-([a-z0-9]*).docx$",
|
|
"MS\\2_\\4.docx",
|
|
fn
|
|
)
|
|
) |>
|
|
dplyr::mutate(
|
|
time2 = lubridate::ymd_hm(gsub(
|
|
"MS([0-9]*)_([a-z0-9]*).docx$",
|
|
"\\1",
|
|
newfn
|
|
))
|
|
) |>
|
|
dplyr::mutate(
|
|
htmlstr = paste0("[- ", time2, ": **", fn, "**](", fn, ")\n\n")
|
|
) |>
|
|
dplyr::pull(htmlstr) |>
|
|
paste(collapse = "") |>
|
|
cat()
|
|
```
|