docs: have consistant code chunk format

Author: vedhav

vignettes/teal-modules-general.Rmd

@@ -39,7 +39,7 @@ See [package functions / modules](https://insightsengineering.github.io/teal.mod
 ### Example application
 
 A simple application featuring the `tm_variable_browser()` module:
-```{r app, message = FALSE, results = "hide", eval = requireNamespace("sparkline", quietly = TRUE)}
+```{r app, eval=FALSE}
 # load libraries
 library(teal.modules.general)
 library(teal.widgets)
@@ -66,20 +66,15 @@ app <- init(
   data = data,
   modules = modules(tm_variable_browser_module)
 )
-```
 
-```{r shinyapp, eval = FALSE}
 shinyApp(app$ui, app$server)
 ```
 
-<img src="images/app-teal-modules-general.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ### Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
+```{r shinylive_url, echo = FALSE, results = 'asis'}
 code <- paste0(c(
-  knitr::knit_code$get("app"),
-  knitr::knit_code$get("shinyapp")
+  knitr::knit_code$get("app")
 ), collapse = "\n")
 
 url <- roxy.shinylive::create_shinylive_url(code)
@@ -93,7 +88,7 @@ knitr::include_url(url, height = "800px")
 Let's break the above app into pieces:
 
 1: Load the necessary libraries and data.
-```r
+```{r warning=FALSE, message=FALSE}
 library(teal.modules.general)
 library(teal.widgets)
 ```
@@ -103,7 +98,7 @@ To do this, we create an empty `teal_data` object and evaluate code to produce t
 
 Following this, we set the `datanames` and `join_keys`.
 
-```r
+```{r warning=FALSE, message=FALSE}
 data <- teal_data()
 data <- within(data, {
   ADSL <- teal.data::rADSL
@@ -117,7 +112,7 @@ join_keys(data) <- default_cdisc_join_keys[names(data)]
 `shiny::shinyApp()` use the `ui` and `server` component to initialize the `teal` app.
 
 
-```r
+```{r warning=FALSE, message=FALSE}
 tm_variable_browser_module <- tm_variable_browser(
   # module name to display in the GUI
   label = "Variable browser",
@@ -133,7 +128,9 @@ app <- init(
   modules = modules(tm_variable_browser_module)
 )
 
-shinyApp(app$ui, app$server)
+if (interactive()) {
+  shinyApp(app$ui, app$server)
+}
 ```
 
 In a `teal` app, data and modules are decoupled. In the app above:

vignettes/using-association-plot.Rmd

@@ -294,12 +294,10 @@ app <- init(
 
 A simple `shiny::shinyApp()` call will let you run the app. Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-association-plot.png" style="display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-bivariate-plot.Rmd

@@ -620,12 +620,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-bivariate-plot.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-cross-table.Rmd

@@ -137,12 +137,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-cross-table.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-data-table.Rmd

@@ -107,12 +107,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-data-table.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-outliers-module.Rmd

@@ -188,12 +188,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-outliers-module.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-regression-plots.Rmd

@@ -267,12 +267,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-regression-plots.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-response-plot.Rmd

@@ -376,12 +376,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-response-plot.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-scatterplot-matrix.Rmd

@@ -155,12 +155,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-scatterplot-matrix.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}

vignettes/using-scatterplot.Rmd

@@ -371,12 +371,10 @@ app <- init(
 A simple `shiny::shinyApp()` call will let you run the app.
 Note that app is only displayed when running this code inside an `R` session.
 
-```{r shinyapp, echo=TRUE, results="hide", eval=base::interactive()}
+```{r shinyapp, eval=FALSE}
 shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 ```
 
-<img src="images/app-using-scatterplot.png" style = "display: block; margin: 0px; width: 100%"/>
-
 ## 5 - Try it out in Shinylive
 
 ```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}