update

vignettes/guided_intermediate.Rmd

@@ -13,14 +13,33 @@ output:
         toc_float: true
 vignette: >
   %\VignetteIndexEntry{A Guided Tour of rtables - Intermediate}
-  %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
+  %\VignetteEngine{knitr::rmarkdown}
 editor_options:
   markdown:
       wrap: 72
   chunk_output_type: console
 ---
 
+```{r, include = FALSE}
+suggested_dependent_pkgs <- c("dplyr")
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>",
+  eval = all(vapply(
+    suggested_dependent_pkgs,
+    requireNamespace,
+    logical(1),
+    quietly = TRUE
+  ))
+)
+```
+
+```{r, echo=FALSE}
+knitr::opts_chunk$set(comment = "#")
+```
+
+
 # Scope and Audience
 
 Now that we have an understanding of how the `rtables` framework

vignettes/guided_intermediate_afun_reqs.Rmd

@@ -14,14 +14,33 @@ output:
         code_folding: show
 vignette: >
   %\VignetteIndexEntry{Intermediate rtables - Identifying Required Analysis Behavior}
-  %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
+  %\VignetteEngine{knitr::rmarkdown}
 editor_options:
   markdown:
       wrap: 72
   chunk_output_type: console
 ---
 
+```{r, include = FALSE}
+suggested_dependent_pkgs <- c("dplyr")
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>",
+  eval = all(vapply(
+    suggested_dependent_pkgs,
+    requireNamespace,
+    logical(1),
+    quietly = TRUE
+  ))
+)
+```
+
+```{r, echo=FALSE}
+knitr::opts_chunk$set(comment = "#")
+```
+
+
 # Introduction
 
 ```{r init, echo = FALSE, results = "hidden"}

vignettes/guided_intermediate_split_reqs.Rmd

@@ -14,14 +14,28 @@ output:
         code_folding: show
 vignette: >
   %\VignetteIndexEntry{Intermediate rtables - Identifying Required Faceting Behavior}
-  %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
+  %\VignetteEngine{knitr::rmarkdown}
 editor_options:
   markdown:
       wrap: 72
   chunk_output_type: console
 ---
 
+```{r, include = FALSE}
+suggested_dependent_pkgs <- c("dplyr")
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>",
+  eval = all(vapply(
+    suggested_dependent_pkgs,
+    requireNamespace,
+    logical(1),
+    quietly = TRUE
+  ))
+)
+```
+
 # Introduction
 
 ```{r init, echo = FALSE, results = "hidden"}

vignettes/guided_intermediate_translating_shells.Rmd

@@ -13,14 +13,33 @@ output:
         toc_float: true
 vignette: >
   %\VignetteIndexEntry{Intermediate rtables - Translating Shells To Layouts}
-  %\VignetteEngine{knitr::rmarkdown}
   %\VignetteEncoding{UTF-8}
+  %\VignetteEngine{knitr::rmarkdown}
 editor_options:
   markdown:
       wrap: 72
   chunk_output_type: console
 ---
 
+```{r, include = FALSE}
+suggested_dependent_pkgs <- c("dplyr")
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>",
+  eval = all(vapply(
+    suggested_dependent_pkgs,
+    requireNamespace,
+    logical(1),
+    quietly = TRUE
+  ))
+)
+```
+
+```{r, echo=FALSE}
+knitr::opts_chunk$set(comment = "#")
+```
+
+
 # Introduction
 
 The first - and often largest - hurdle to creating a table via
@@ -56,7 +75,7 @@ knitr::opts_chunk$set(comment = "")
 ```
 
 
-```{r, eval = TRUE, echo = FALSE, result = "asis"}
+```{r, echo = FALSE, result = "asis"}
 adsl <- ex_adsl %>%
   filter(SEX %in% c("M", "F") & RACE %in% c("ASIAN", "BLACK OR AFRICAN AMERICAN", "WHITE")) %>%
   mutate(
@@ -142,7 +161,7 @@ table.
 
 Our shell gives us the following to indicate column structure:
 
-```{r, eval = TRUE, echo = FALSE, result="asis"}
+```{r, echo = FALSE, result="asis"}
 fixed_shell(result[0, ])
 ```