use roxy.shinylive

.gitignore

@@ -29,3 +29,5 @@ vignettes/*.R
 coverage.*
 tests/testthat/_snaps/**/*.new.md
 tests/testthat/_snaps/**/*.new.svg
+/doc/
+/Meta/

DESCRIPTION

@@ -69,6 +69,7 @@ Suggests:
     MASS,
     nestcolor (>= 0.1.0),
     pkgload,
+    roxy.shinylive,
     rlang (>= 1.0.0),
     rmarkdown (>= 2.23),
     rtables (>= 0.6.8),
@@ -92,12 +93,12 @@ Config/Needs/verdepcheck: haleyjeppson/ggmosaic, tidyverse/ggplot2,
     aphalo/ggpmisc, aphalo/ggpp, slowkow/ggrepel, baddstats/goftest,
     gridExtra, ramnathv/htmlwidgets, jeroen/jsonlite, yihui/knitr,
     daroczig/logger, deepayan/lattice, MASS,
-    insightsengineering/nestcolor, r-lib/rlang, rstudio/rmarkdown,
+    insightsengineering/nestcolor, insightsengineering/roxy.shinylive, r-lib/rlang, rstudio/rmarkdown,
     insightsengineering/rtables, tidyverse/rvest, sparkline,
     rstudio/shinytest2, r-lib/testthat, r-lib/withr
 Config/Needs/website: insightsengineering/nesttemplate
 Encoding: UTF-8
 Language: en-US
 LazyData: true
-Roxygen: list(markdown = TRUE)
+Roxygen: list(markdown = TRUE, packages = c("roxy.shinylive"))
 RoxygenNote: 7.3.2

R/tm_a_pca.R

@@ -18,9 +18,11 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
-#' library(teal.widgets)
-#'
 #' # general data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -45,9 +47,6 @@
 #'           multiple = TRUE
 #'         ),
 #'         filter = NULL
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by PCA Module")
 #'       )
 #'     )
 #'   )
@@ -56,6 +55,11 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -80,9 +84,6 @@
 #'           multiple = TRUE
 #'         ),
 #'         filter = NULL
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by PCA Module")
 #'       )
 #'     )
 #'   )

R/tm_a_regression.R

@@ -42,10 +42,12 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
 #' # general data example
-#' library(teal.widgets)
-#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
@@ -77,9 +79,6 @@
 #'           multiple = TRUE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Regression Module")
 #'       )
 #'     )
 #'   )
@@ -88,9 +87,12 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
-#' library(teal.widgets)
-#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
@@ -123,9 +125,6 @@
 #'           multiple = TRUE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Regression Module")
 #'       )
 #'     )
 #'   )

R/tm_data_table.R

@@ -29,6 +29,10 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
 #' # general data example
 #' data <- teal_data()
@@ -53,6 +57,11 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {

R/tm_file_viewer.R

@@ -13,6 +13,10 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
 #' data <- teal_data()
 #' data <- within(data, {

R/tm_front_page.R

@@ -17,6 +17,10 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
 #' data <- teal_data()
 #' data <- within(data, {

R/tm_g_association.R

@@ -25,9 +25,11 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
-#' library(teal.widgets)
-#'
 #' # general data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -60,9 +62,6 @@
 #'           multiple = TRUE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Association Module")
 #'       )
 #'     )
 #'   )
@@ -71,6 +70,11 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -108,9 +112,6 @@
 #'           multiple = TRUE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Association Module")
 #'       )
 #'     )
 #'   )

R/tm_g_bivariate.R

@@ -46,9 +46,11 @@
 #'
 #' @inherit shared_params return
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
-#' library(teal.widgets)
-#'
 #' # general data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -96,17 +98,18 @@
 #'         selected = "Treatment",
 #'         fixed = FALSE
 #'       )
-#'     ),
-#'     ggplot2_args = ggplot2_args(
-#'       labs = list(subtitle = "Plot generated by Bivariate Module")
 #'     )
 #'   )
 #' )
 #' if (interactive()) {
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
-#'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -155,9 +158,6 @@
 #'         selected = "COUNTRY",
 #'         fixed = FALSE
 #'       )
-#'     ),
-#'     ggplot2_args = ggplot2_args(
-#'       labs = list(subtitle = "Plot generated by Bivariate Module")
 #'     )
 #'   )
 #' )

R/tm_g_distribution.R

@@ -27,9 +27,13 @@
 #'
 #' @inherit shared_params return
 #'
-#' @examples
-#' library(teal.widgets)
-#'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+# nolint start: line_length_linter.
+#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", quietly = TRUE)
+# nolint end: line_length_linter.
 #' # general data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -44,9 +48,6 @@
 #'       dist_var = data_extract_spec(
 #'         dataname = "iris",
 #'         select = select_spec(variable_choices("iris"), "Petal.Length")
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Distribution Module")
 #'       )
 #'     )
 #'   )
@@ -55,6 +56,13 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+# nolint start: line_length_linter.
+#' @examplesIf require("ggpmisc", quietly = TRUE) && require("ggpp", quietly = TRUE) && require("goftest", quietly = TRUE) && require("MASS", quietly = TRUE) && require("broom", quietly = TRUE)
+# nolint end: line_length_linter.
 #' # CDISC data example
 #' data <- teal_data()
 #' data <- within(data, {
@@ -94,9 +102,6 @@
 #'           vars = vars1,
 #'           multiple = TRUE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Distribution Module")
 #'       )
 #'     )
 #'   )

R/tm_g_response.R

@@ -39,10 +39,12 @@
 #' @note For more examples, please see the vignette "Using response plot" via
 #' `vignette("using-response-plot", package = "teal.modules.general")`.
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
 #' @examples
 #' # general data example
-#' library(teal.widgets)
-#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
@@ -77,9 +79,6 @@
 #'           multiple = FALSE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Response Module")
 #'       )
 #'     )
 #'   )
@@ -88,9 +87,12 @@
 #'   shinyApp(app$ui, app$server)
 #' }
 #'
+#' @examplesShinylive
+#' library(teal.modules.general)
+#' interactive <- function() TRUE
+#' {{ next_example }}
+#' @examples
 #' # CDISC data example
-#' library(teal.widgets)
-#'
 #' data <- teal_data()
 #' data <- within(data, {
 #'   require(nestcolor)
@@ -123,9 +125,6 @@
 #'           multiple = FALSE,
 #'           fixed = FALSE
 #'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Response Module")
 #'       )
 #'     )
 #'   )