put table first

book/_utils/shinylive.qmd

@@ -13,11 +13,6 @@ Global shinylive configuration is available in the `_quarto.yaml` file.
 The performance is slighly worse and some of the features (e.g. downloading) might not work at all.
 :::
 
-<!--
-we have to put some code upfront
-- need to setup repos on r-universe - currently it's not possible to setup this elsewhere (e.g. shinylive config or chunk attribute)
--->
-
 ```{r shinylive-constructor, echo = FALSE, results = "asis", opts.label = "skip_if_testing"}
 repo_url <- ifelse(identical(Sys.getenv("QUARTO_PROFILE"), "stable"), "https://insightsengineering.r-universe.dev", "https://pharmaverse.r-universe.dev")
 options(webr_pkg_repos = c("r-universe" = repo_url, getOption("webr_pkg_repos")))

book/repro.qmd

@@ -2,28 +2,27 @@
 
 ### Timestamp
 
-```{r systime, message = FALSE}
-#| code-fold: show
-#| renv.ignore: TRUE
+```{r systime}
+#| echo: FALSE
 
 Sys.time()
 ```
 
 ### Session Info
 
-```{r sessioninfo, message = FALSE}
-#| code-fold: show
+```{r sessioninfo}
+#| echo: FALSE
 #| renv.ignore: TRUE
 
-sessionInfo()
+sessioninfo::session_info()
 ```
 
 ### `.lock` file
 
 Download the `.lock` file and use [`renv::restore()`](https://rstudio.github.io/renv/reference/restore.html) on it to recreate environment used to generate this website.
 
-```{r snapshot, message = FALSE, opts.label = "skip_if_testing"}
-#| code-fold: true
+```{r snapshot, opts.label = "skip_if_testing"}
+#| echo: FALSE
 #| renv.ignore: TRUE
 
 parent_file_path <- knitr::current_input(dir = TRUE)

book/tables/ADA/adat01.qmd

@@ -8,9 +8,7 @@ subtitle: Baseline Prevalence and Incidence of Treatment Emergent ADA
 {{< include ../../_utils/envir_hook.qmd >}}
 
 :::: {.panel-tabset}
-## Data Setup
-
-```{r setup, message = FALSE}
+```{r setup, message = FALSE, echo = FALSE}
 #| code-fold: show
 
 library(tern)

book/tables/adverse-events/aet01.qmd

@@ -8,13 +8,8 @@ subtitle: Safety Summary
 {{< include ../../_utils/envir_hook.qmd >}}
 
 :::: {.panel-tabset}
-## Data Setup
-
-To illustrate, additional variables such as flags (TRUE/FALSE) for select AEs of interest and select AE baskets are added to the `adae` dataset.
-
-```{r setup, message = FALSE}
-#| code-fold: show
 
+```{r setup, echo = FALSE}
 library(tern)
 library(dplyr)
 
@@ -368,6 +363,16 @@ result
 {{< include ../../_utils/webr.qmd >}}
 :::
 
+## Data Setup
+
+To illustrate, additional variables such as flags (TRUE/FALSE) for select AEs of interest and select AE baskets are added to the `adae` dataset.
+
+```{r setup}
+#| code-fold: show
+```
+
+::::
+
 {{< include ../../_utils/save_results.qmd >}}
 
 ## `teal` App
@@ -454,5 +459,3 @@ shinyApp(app$ui, app$server)
 :::
 
 {{< include ../../repro.qmd >}}
-
-::::