update brand and metadata.yml

TC/index.qmd

@@ -2,17 +2,10 @@
 subtitle: "Track Changes"
 ---
 
-
-```{r}
-#| include: false
-require(drwateR)
-rmdify::rmd_init()
-```
-
 ```{r}
+#| echo: false
 #| 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$",
@@ -20,7 +13,6 @@ data.frame(fn = dir("./", pattern = ".*-.*.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$",
@@ -28,9 +20,6 @@ data.frame(fn = dir("./", pattern = ".*-.*.docx")) |>
       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")
   ) |>