From d72818ee1beb8e6621872d56418488fd25890206 Mon Sep 17 00:00:00 2001
From: Vedha Viyash <49812166+vedhav@users.noreply.github.com>
Date: Mon, 3 Feb 2025 20:29:32 +0530
Subject: [PATCH] Make sure the code chunks does not break because of warnings
 (#1327)

Part of vignette review
https://github.com/insightsengineering/nestdevs-tasks/issues/99
---
 vignettes/teal-modules-clinical.Rmd | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/vignettes/teal-modules-clinical.Rmd b/vignettes/teal-modules-clinical.Rmd
index 5561bb2ec5..3824e06d01 100644
--- a/vignettes/teal-modules-clinical.Rmd
+++ b/vignettes/teal-modules-clinical.Rmd
@@ -46,7 +46,7 @@ See the full index of package functions & modules [here](https://insightsenginee
 A `teal.modules.clinical` module needs to be embedded inside a `shiny`/`teal` application to interact with it.
 A simple application including a bar chart module could look like this:
 
-```{r app, message = FALSE, results = "hide"}
+```{r app, eval=FALSE}
 library(teal.modules.clinical)
 library(nestcolor)
 
@@ -82,9 +82,7 @@ app <- init(
     )
   )
 )
-```
 
-```{r shinyapp, eval = FALSE}
 shinyApp(app$ui, app$server)
 ```
 
@@ -170,7 +168,7 @@ app <- init(
 Finally, we use `shiny` to launch the application:
 
 ```r
-if (interactive()) shinyApp(app$ui, app$server)
+shinyApp(app$ui, app$server)
 ```
 
 Some `teal.modules.clinical` modules allow for the specification of arguments using
@@ -194,7 +192,7 @@ app <- init(
   )
 )
 
-if (interactive()) shinyApp(app$ui, app$server)
+shinyApp(app$ui, app$server)
 ```
 
 Please refer to the [API reference](https://insightsengineering.github.io/teal.modules.clinical/latest-tag/reference/)