Make sure the code chunks does not break because of warnings (#287)

Part of vignette review insightsengineering/nestdevs-tasks#99
insightsengineering · Jan 30, 2025 · 2c44890 · 2c44890
1 parent da411da
commit 2c44890
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/vignettes/custom-basic-table-arguments.Rmd b/vignettes/custom-basic-table-arguments.Rmd
@@ -40,7 +40,7 @@ For multi-table case, per table (`basic_table_args_table`) and then default (`ba
 
 ## Example - Single-Table Module
 
-```{r echo=TRUE}
+```{r warning=FALSE}
 library(shiny)
 library(teal.widgets)
 library(magrittr)
@@ -85,8 +85,8 @@ server <- function(input, output, session) {
   )
   output$table1 <- renderPrint(eval(table_expr))
 }
-```
 
-```{r echo=TRUE, eval = FALSE}
-shinyApp(ui, server)
+if (interactive()) {
+  shinyApp(ui, server)
+}
 ```
diff --git a/vignettes/custom-ggplot2-arguments.Rmd b/vignettes/custom-ggplot2-arguments.Rmd
@@ -54,7 +54,7 @@ To solve the problem please use `::` to prefix it directly to a specific package
 
 ## Loading libraries and data
 
-```{r echo=TRUE, warning=FALSE, message=FALSE}
+```{r warning=FALSE}
 library(shiny)
 library(ggplot2)
 library(teal.widgets)
@@ -104,8 +104,8 @@ server <- function(input, output, session) {
   print(plot_expr)
   output$plot1 <- renderPlot(eval(plot_expr))
 }
-```
 
-```{r echo=TRUE, eval = FALSE}
-shinyApp(ui, server)
+if (interactive()) {
+  shinyApp(ui, server)
+}
 ```