added session info and fixed link to source

Author: StefanThoma

R/appendix.R

@@ -1,9 +1,10 @@
+
 # markdown helpers --------------------------------------------------------
 
-markdown_appendix <- function(name, content) {
+markdown_appendix <- function (name, content) {
   paste(paste("##", name, "{.appendix}"), " ", content, sep = "\n")
 }
-markdown_link <- function(text, path) {
+markdown_link <- function (text, path) {
   paste0("[", text, "](", path, ")")
 }
 
@@ -57,7 +58,7 @@ insert_lockfile <- function(repo_spec, name,
 
 # top level function ------------------------------------------------------
 
-insert_appendix <- function(repo_spec, name, collection = "posts") {
+insert_appendix <- function (repo_spec, name, collection = "posts") {
   appendices <- paste(
     markdown_appendix(
       name = "Last updated",
@@ -69,8 +70,7 @@ insert_appendix <- function(repo_spec, name, collection = "posts") {
       content = paste(
         insert_source(repo_spec, name, collection),
         insert_lockfile(repo_spec, name, collection),
-        sep = ", "
-      )
+        sep = ", ")
     ),
     sep = "\n"
   )

posts/2023-10-30_floating_point/appendix.R

@@ -15,15 +15,16 @@ insert_source <- function(repo_spec, name,
                           collection = "posts",
                           branch = "main",
                           host = "https://github.com",
-                          text = "source code") {
+                          text = "source code",
+                          file_name) {
   path <- paste(
     host,
     repo_spec,
     "tree",
     branch,
     collection,
     name,
-    "code_sections.qmd",
+    file_name,
     sep = "/"
   )
   return(markdown_link(text, path))
@@ -47,7 +48,7 @@ insert_lockfile <- function(repo_spec, name,
     branch,
     collection,
     name,
-    "renv.lock",
+    "session_info.txt",
     sep = "/"
   )
   return(markdown_link(text, path))
@@ -57,7 +58,11 @@ insert_lockfile <- function(repo_spec, name,
 
 # top level function ------------------------------------------------------
 
-insert_appendix <- function(repo_spec, name, collection = "posts") {
+insert_appendix <- function(repo_spec, name, collection = "posts", file_name) {
+  # write session info to txt
+  session_info <- sessionInfo()
+  writeLines(capture.output(session_info), con = "session_info.txt")
+
   appendices <- paste(
     markdown_appendix(
       name = "Last updated",
@@ -67,7 +72,8 @@ insert_appendix <- function(repo_spec, name, collection = "posts") {
     markdown_appendix(
       name = "Details",
       content = paste(
-        insert_source(repo_spec, name, collection),
+        insert_source(repo_spec, name, collection, file_name = file_name),
+        # get renv information,
         insert_lockfile(repo_spec, name, collection),
         sep = ", "
       )

posts/2023-10-30_floating_point/floating_point.qmd

@@ -353,6 +353,8 @@ I.e. `.Machine$double.eps / 1.8` is still detectable, while `.Machine$double.eps
 source("appendix.R")
 insert_appendix(
   repo_spec = "pharmaverse/blog",
-  name = long_slug
+  name = long_slug, 
+  # file_name should be the name of your file
+  file_name = list.files() %>% stringr::str_subset(".qmd") %>% first()
 )
 ```

posts/2023-10-30_floating_point/session_info.txt

@@ -0,0 +1,34 @@
+R version 4.3.0 (2023-04-21)
+Platform: aarch64-apple-darwin20 (64-bit)
+Running under: macOS 14.3.1
+
+Matrix products: default
+BLAS:   /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/lib/libRblas.0.dylib 
+LAPACK: /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/lib/libRlapack.dylib;  LAPACK version 3.11.0
+
+locale:
+[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
+
+time zone: Europe/Zurich
+tzcode source: internal
+
+attached base packages:
+[1] stats     graphics  grDevices utils     datasets  methods   base     
+
+other attached packages:
+[1] reactable_0.4.4 dplyr_1.1.4     admiral_0.12.2 
+
+loaded via a namespace (and not attached):
+ [1] jsonlite_1.8.7        compiler_4.3.0        tidyselect_1.2.1     
+ [4] stringr_1.5.1         tidyr_1.3.1           yaml_2.3.7           
+ [7] fastmap_1.1.1         R6_2.5.1              generics_0.1.3       
+[10] admiraldev_1.0.0.9020 knitr_1.42            htmlwidgets_1.6.2    
+[13] tibble_3.2.1          lubridate_1.9.3       pillar_1.9.0         
+[16] rlang_1.1.3           utf8_1.2.4            stringi_1.8.3        
+[19] reactR_0.5.0          xfun_0.39             timechange_0.3.0     
+[22] cli_3.6.2             withr_3.0.0           magrittr_2.0.3       
+[25] crosstalk_1.2.0       digest_0.6.33         rstudioapi_0.14      
+[28] hms_1.1.3             lifecycle_1.0.4       vctrs_0.6.5          
+[31] evaluate_0.21         glue_1.7.0            fansi_1.0.6          
+[34] rmarkdown_2.21        purrr_1.0.2           tools_4.3.0          
+[37] pkgconfig_2.0.3       ellipsis_0.3.2        htmltools_0.5.5