update template

MS/SM.qmd

@@ -58,4 +58,30 @@ Figures and/or tables are provided below as the supplementary evidences to the m
 
 \pagebreak
 
+::: {#sfg-demofigure}
+
+```{r}
+#| out-width: 60%
+#| lightbox:
+#|   group: all
+
+if (!isRendering) {
+
+  mtcars |>
+  ggplot(aes(x = wt, y = mpg)) +
+    geom_point() +
+    labs(x = "Weight", y = "Miles per Gallon") +
+    dwfun::theme_sci(3, 3)
+
+  ggsavep("../figures/demofigure.pdf", loadit = FALSE)
+
+} # End of isrendering
+
+ggsavep("../figures/demofigure.pdf", loadit = TRUE)
+
+```
+
+"This is demo figure in supplementary material"
+
+:::
 

TC/index.qmd

@@ -6,20 +6,20 @@ subtitle: "Track Changes"
 ```{r}
 #| include: false
 require(drwateR)
-require(rmdify)
 rmdify::rmd_init()
 ```
 
 ```{r}
 #| output: asis
-data.frame(fn = dir(".", pattern = "-.*.qmd")) |>
+data.frame(fn = dir("./", pattern = ".*-.*.docx")) |>
-  dplyr::mutate(rawfn = gsub("^.*_", "", fn)) |>
+  # dplyr::mutate(oldfn = gsub("^MS([0-9]*)-([0-9]*)_([a-z0-9]*)-([a-z0-9]*).docx$", "MS\\1_\\3.docx", fn)) |>
-  dplyr::mutate(time1 = lubridate::ymd_h(gsub("-.*$", "", fn))) |>
+  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_h(gsub("^.*-(.*)_.*$", "\\1", fn))) |>
+  # dplyr::mutate(time1 = lubridate::ymd_hm(gsub("MS([0-9]*)_([a-z0-9]*).docx$", "\\1", oldfn))) |>
-  dplyr::arrange(dplyr::desc(time2), rawfn, dplyr::desc(time1)) |>
+  dplyr::mutate(time2 = lubridate::ymd_hm(gsub("MS([0-9]*)_([a-z0-9]*).docx$", "\\1", newfn))) |>
-  dplyr::mutate(htmlstr = paste0("- [**", rawfn, "**: ",
+  # dplyr::arrange(dplyr::desc(time2), newfn, dplyr::desc(time1)) |>
-    format(time1, "%y-%m-%d %H:%M"), " ⇨  **", format(time2, "%Y-%m-%d %H:%M"),
+  # dplyr::mutate(htmlstr = paste0("- [**", oldfn, "**](MS/", oldfn, ") ← [**",
-    "**](", gsub("qmd$", "html", fn), ")\n\n")) |>
+  #   newfn, "**](MS/", newfn, ") ⇨ [**", fn, "**](", fn, ")\n\n")) |>
+  dplyr::mutate(htmlstr = paste0("[- ", time2, ": **", fn, "**](", fn, ")\n\n")) |>
   dplyr::pull(htmlstr) |>
   paste(collapse = "") |>
   cat()

_quarto.yml

@@ -104,6 +104,7 @@ project:
     - MS/MS.qmd
     - MS/CL.qmd
     - MS/HL.qmd
+    - MS/TC.qmd
   #   - MS/RN.qmd
   #   - MS/AC.qmd
 website:
@@ -127,6 +128,8 @@ website:
         file: MS/SM.qmd
       # - text: "Revision Notes"
       #   file: MS/RN.qmd
+      - text: "Trackchanges"
+        file: TC/index.qmd
       - text: "Slides"
         file: SD/index.qmd
       - text: "Other"
@@ -137,8 +140,6 @@ website:
             file: MS/CL.qmd
             # - text: "Author Credits"
             # file: MS/AC.qmd
-          - text: "Trackchanges"
-            file: TC/index.qmd
           - text: "Accomplishment"
             file: AC/index.qmd
       - icon: git