From 9e40637cad24ea24a19e8def8deb4fa235f3118b Mon Sep 17 00:00:00 2001
From: Kyle Belanger <kyleb44@hotmail.com>
Date: Mon, 27 Feb 2023 14:19:22 -0500
Subject: [PATCH] Update chapter3.qmd

---
 chapter3.qmd | 52 ++++++++++++++++++++++++++++++++++++++++++++++------
 1 file changed, 46 insertions(+), 6 deletions(-)

diff --git a/chapter3.qmd b/chapter3.qmd
index 24f7585..ec01092 100644
--- a/chapter3.qmd
+++ b/chapter3.qmd
@@ -62,14 +62,54 @@ When examining @fig-distro_histo, many clinical chemistry values do not show a s
 
 ## Data Tools
 
-All data handling and modeling were performed using R and R Studio. The current report was rendered in the following environment for documentation and reproducibility.
+All data handling and modeling were performed using R and R Studio. The current report was rendered in the following environment.
 
 ```{r}
-if( requireNamespace("devtools", quietly = TRUE) ) {
-  devtools::session_info()
-} else {
-  sessionInfo()
-}
+#| label: tbl-platform-info
+#| tbl-cap: Session Info R Environment
+#| echo: false
+#| #| message: false
+
+df_session_platform <-  devtools::session_info()$platform %>% 
+  unlist(.) %>% 
+  as.data.frame(.) %>% 
+  tibble::rownames_to_column(.)
+
+colnames(df_session_platform) <- c("Setting", "Value")
+
+knitr::kable(
+  df_session_platform
+  ,align = 'l'
+  ,booktabs = TRUE
+)
+
+```
+
+```{r}
+#| label: tbl-package-info
+#| tbl-cap: Package Info R Environment
+#| echo: false
+#| message: false
+
+
+df_session_packages <-  devtools::session_info(include_base = TRUE)$packages %>% 
+  as.data.frame(.) %>% 
+  dplyr::select(loadedversion, date) %>% 
+  tibble::rownames_to_column()
+
+colnames(df_session_packages) <- c("Package", "Loaded Version", "Date")
+
+used_packages <-renv::dependencies() %>% dplyr::select(2)
+
+df_session_packages <- df_session_packages %>% 
+  dplyr::filter(Package %in% used_packages$Package)
+
+knitr::kable(
+  df_session_packages
+  ,align = 'l'
+  ,booktabs = TRUE
+)
+
 ```
 
 ## Model Selection