---
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()
```
