closes #384 new Roche council rep

inst/WORDLIST.txt

@@ -138,6 +138,7 @@ anrind
 ANRIND
 Anthropic
 anthropometric
+APAC
 apache
 appsilon
 Appsilon
@@ -344,9 +345,9 @@ dat
 datacutr
 dataname
 datanames
+dataset's
 datasetjson
 DatasetMeta
-dataset's
 datatable
 dataview
 dataviewer
@@ -583,6 +584,7 @@ htmlwidgets
 httpuv
 httr
 hu
+ℹ
 Iaccarino
 IBMRounding
 ICH
@@ -615,20 +617,20 @@ iscr
 ISCR
 ITT
 ITTFL
-ℹ
 Jagadish
 Janssen
 Javascript
 Jian
+joe
 JouRney
 jpeg
 jpg
 jquerylib
 js
 json
 JSON
-jsonlite
 JSON's
+jsonlite
 jygn
 kable
 Kalappurakal
@@ -649,6 +651,7 @@ kronecker
 Krouse
 Kumar
 Kumari
+L'Ecuyer
 labsbl
 lang
 lapack
@@ -663,7 +666,6 @@ lbt
 LBTESTCD
 LBTESTCDB
 learnings
-L'Ecuyer
 Leena
 Lepore
 Lewandowski
@@ -685,8 +687,8 @@ locf
 lockfile
 logr
 logrx
-logrxaddin
 logrx's
+logrxaddin
 LSTALVDT
 lsting
 LTS
@@ -851,6 +853,7 @@ pharmacometricians
 pharmacovigilance
 pharmaR
 pharmaRTF
+Pharmarug
 PharmaSUG
 pharmaverse
 Pharmaverse
@@ -989,8 +992,8 @@ RSPM
 rstudio
 rStudio
 RStudio
-rstudioapi
 RStudio's
+rstudioapi
 rtable
 rtables
 rtf
@@ -1300,9 +1303,10 @@ yyyy
 Zelos
 Zhang
 Zhao
+zhu
 Zhu
 zlib
 zMachine
 Żyła
 zzz
-β
+β

posts/2026-06-05-welcome-joe-zhu/appendix.R

@@ -0,0 +1,71 @@
+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)
+}

posts/2026-06-05-welcome-joe-zhu/welcome-joe-zhu.qmd

@@ -0,0 +1,55 @@
+---
+title: "Welcome Joe Zhu"
+author:
+  - name: Ross Farrugia
+description: "Joe Zhu joins the pharmaverse council as the Roche/Genentech Council representative"
+# Note that the date below will be auto-updated when the post is merged.
+date: "2026-06-04"
+# Please do not use any non-default categories.
+# You can find the default categories in the repository README.md
+categories: [Community]
+# Feel free to change the image
+image: "Joe.png"
+
+---
+
+<!--------------- typical setup ----------------->
+
+```{r setup, include=FALSE}
+long_slug <- "2026-06-05-welcome-joe-zhu"
+```
+
+<!--------------- post begins here ----------------->
+
+Hi pharmaverse community,
+
+I wanted to share that Joe Zhu will be taking over from me (Ross Farrugia) as the Roche/Genentech representative on our pharmaverse council.
+
+Having been one of the initial co-founders of pharmaverse back in mid-2020, it feels like the right time after 6 years to bring fresh perspectives and energy, and I couldn't think of anyone better than Joe for this. I'm incredibly proud (as I hope all of our community are) of how far we've come doing our bit to bring countless companies and individuals together to make open source collaborations a reality across pharma.
+
+In our early years, I had the privilege to present in front of a distinguished board and someone there challenged me with "good luck in getting pharmaceutical companies to share code", in reply I shared the story of admiral and pharmaverse, and they were blown away. In all their years of experience they had never imagined something like this would ever succeed at scale. It is testament to every single one of you in our community (and thanks to supporters like PHUSE) that it has and it continues to grow!
+
+I won't be going far away, as now I get to continue as an individual contributor to pharmaverse.
+
+Here's some more details on Joe and where you can learn more about our council:
+
+**Bio:**
+
+![Joe Zhu](Joe.png)
+
+Joe Zhu is a Principal Data Scientist at Roche and the Chief Product Owner and Lead Engineer for the company's NEST project. A prominent advocate for open-source software in the global pharmaceutical sector, Joe co-founded both the China Pharma R User Group (Pharmarug) and R in Pharma APAC. He is dedicated to bridging the gap between advanced statistics, genomics research, and clinical trial software.
+
+To learn more about our council please check our
+[site page](https://pharmaverse.org/contribute/council/), and you can reach this group anytime using: pharmaverse.council@phuse.global.
+
+<!--------------- appendices go here ----------------->
+
+```{r, echo=FALSE}
+source("appendix.R")
+insert_appendix(
+  repo_spec = "pharmaverse/blog",
+  name = long_slug,
+  # file_name should be the name of your file
+  file_name = list.files() %>% stringr::str_subset(".qmd") %>% first()
+)
+```