---
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")) |>
  dplyr::pull(htmlstr) |>
  paste(collapse = "") |>
  cat()
```