27 lines
706 B
Plaintext
27 lines
706 B
Plaintext
---
|
|
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()
|
|
```
|