extend requireNamespace with quietly = TRUE

Author: m7pr

vignettes/teal-modules-general.Rmd

@@ -78,7 +78,7 @@ shinyApp(app$ui, app$server)
 
 ### Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("app"),
   knitr::knit_code$get("shinyapp")

vignettes/using-association-plot.Rmd

@@ -304,7 +304,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-cross-table.Rmd

@@ -147,7 +147,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-data-table.Rmd

@@ -117,7 +117,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-outliers-module.Rmd

@@ -198,7 +198,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-regression-plots.Rmd

@@ -277,7 +277,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-response-plot.Rmd

@@ -386,7 +386,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-scatterplot-matrix.Rmd

@@ -165,7 +165,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),

vignettes/using-scatterplot.Rmd

@@ -381,7 +381,7 @@ shinyApp(app$ui, app$server, options = list(height = 1024, width = 1024))
 
 ## 5 - Try it out in Shinylive
 
-```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive")}
+```{r shinylive_url, echo = FALSE, results = 'asis', eval = requireNamespace("roxy.shinylive", quietly = TRUE)}
 code <- paste0(c(
   knitr::knit_code$get("library"),
   knitr::knit_code$get("data"),