Merge branch 'main' into 189_update_falcon

.github/workflows/publish.yml

@@ -52,6 +52,7 @@ jobs:
             riskmetric
             tidyCDISC
             mirai
+            sdtm.oak
 
       - name: Install tinytex
         run: quarto install tool tinytex

inst/WORDLIST.txt

@@ -1160,3 +1160,51 @@ mypackage
 parmsam
 shinyl
 zzz
+BEFORE’
+CDASH
+CMSTRTPT
+CMTRT
+CRF
+DM
+eCRF
+EDC
+eDT
+FLUIDS’
+hardcode
+hardcoded
+MDPRIOR
+MHOCCUR
+MHPRESP
+MHTERM
+NonCRF
+oak
+Pressure
+RELREC
+Roadmap
+SV
+TEMP
+VSMETHOD
+VSPOS
+VSTEST
+VSLAT
+tgt
+Y
+oakgarden
+stringsAsFactors
+Rammprasad
+mmHg
+MDRAW
+kable
+Ganapathy
+FASCAT
+DOSU
+dat
+CORTISPORIN
+CMSTTPT
+CMMODIFY
+CMDOSU
+CMDOSE
+clst
+br
+Varialble
+sdtmoak

posts/2024-10-24_introducing.../appendix.R

@@ -0,0 +1,73 @@
+suppressMessages(library(dplyr))
+# markdown helpers --------------------------------------------------------
+
+markdown_appendix <- function(name, content) {
+  paste(paste("##", name, "{.appendix}"), " ", content, sep = "\n")
+}
+markdown_link <- function(text, path) {
+  paste0("[", text, "](", path, ")")
+}
+
+
+
+# worker functions --------------------------------------------------------
+
+insert_source <- function(repo_spec, name,
+                          collection = "posts",
+                          branch = "main",
+                          host = "https://github.com",
+                          text = "Source",
+                          file_name) {
+  path <- paste(
+    host,
+    repo_spec,
+    "tree",
+    branch,
+    collection,
+    name,
+    file_name,
+    sep = "/"
+  )
+  return(markdown_link(text, path))
+}
+
+insert_timestamp <- function(tzone = Sys.timezone()) {
+  time <- lubridate::now(tzone = tzone)
+  stamp <- as.character(time, tz = tzone, usetz = TRUE)
+  return(stamp)
+}
+
+insert_lockfile <- function(repo_spec, name,
+                            collection = "posts",
+                            branch = "main",
+                            host = "https://github.com",
+                            text = "Session info") {
+  path <- path <- "https://pharmaverse.github.io/blog/session_info.html"
+
+  return(markdown_link(text, path))
+}
+
+
+
+# top level function ------------------------------------------------------
+
+insert_appendix <- function(repo_spec, name, collection = "posts", file_name) {
+  appendices <- paste(
+    markdown_appendix(
+      name = "Last updated",
+      content = insert_timestamp()
+    ),
+    " ",
+    markdown_appendix(
+      name = "Details",
+      content = paste(
+        insert_source(repo_spec, name, collection, file_name = file_name),
+        # get renv information,
+        insert_lockfile(repo_spec, name, collection),
+        sep = ", "
+      )
+    ),
+    sep = "\n"
+  )
+  knitr::asis_output(appendices)
+}