712 - {shinytest2} for tm_g_bivariate

R/tm_g_bivariate.R

@@ -56,52 +56,49 @@
 #'   CO2 <- data.frame(CO2)
 #' })
 #' datanames(data) <- c("CO2")
-#' join_keys(data) <- default_cdisc_join_keys[datanames(data)]
 #'
 #' app <- init(
 #'   data = data,
-#'   modules = modules(
-#'     tm_g_bivariate(
-#'       x = data_extract_spec(
-#'         dataname = "CO2",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["CO2"]]),
-#'           selected = "conc",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       y = data_extract_spec(
-#'         dataname = "CO2",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["CO2"]]),
-#'           selected = "uptake",
-#'           multiple = FALSE,
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       row_facet = data_extract_spec(
-#'         dataname = "CO2",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["CO2"]]),
-#'           selected = "Type",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       col_facet = data_extract_spec(
-#'         dataname = "CO2",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["CO2"]]),
-#'           selected = "Treatment",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Bivariate Module")
+#'   modules = tm_g_bivariate(
+#'     x = data_extract_spec(
+#'       dataname = "CO2",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["CO2"]]),
+#'         selected = "conc",
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     y = data_extract_spec(
+#'       dataname = "CO2",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["CO2"]]),
+#'         selected = "uptake",
+#'         multiple = FALSE,
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     row_facet = data_extract_spec(
+#'       dataname = "CO2",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["CO2"]]),
+#'         selected = "Type",
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     col_facet = data_extract_spec(
+#'       dataname = "CO2",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["CO2"]]),
+#'         selected = "Treatment",
+#'         fixed = FALSE
 #'       )
+#'     ),
+#'     ggplot2_args = ggplot2_args(
+#'       labs = list(subtitle = "Plot generated by Bivariate Module")
 #'     )
 #'   )
 #' )
@@ -121,48 +118,46 @@
 #'
 #' app <- init(
 #'   data = data,
-#'   modules = modules(
-#'     tm_g_bivariate(
-#'       x = data_extract_spec(
-#'         dataname = "ADSL",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["ADSL"]]),
-#'           selected = "AGE",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       y = data_extract_spec(
-#'         dataname = "ADSL",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["ADSL"]]),
-#'           selected = "SEX",
-#'           multiple = FALSE,
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       row_facet = data_extract_spec(
-#'         dataname = "ADSL",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["ADSL"]]),
-#'           selected = "ARM",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       col_facet = data_extract_spec(
-#'         dataname = "ADSL",
-#'         select = select_spec(
-#'           label = "Select variable:",
-#'           choices = variable_choices(data[["ADSL"]]),
-#'           selected = "COUNTRY",
-#'           fixed = FALSE
-#'         )
-#'       ),
-#'       ggplot2_args = ggplot2_args(
-#'         labs = list(subtitle = "Plot generated by Bivariate Module")
+#'   modules = tm_g_bivariate(
+#'     x = data_extract_spec(
+#'       dataname = "ADSL",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["ADSL"]]),
+#'         selected = "AGE",
+#'         fixed = FALSE
 #'       )
+#'     ),
+#'     y = data_extract_spec(
+#'       dataname = "ADSL",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["ADSL"]]),
+#'         selected = "SEX",
+#'         multiple = FALSE,
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     row_facet = data_extract_spec(
+#'       dataname = "ADSL",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["ADSL"]]),
+#'         selected = "ARM",
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     col_facet = data_extract_spec(
+#'       dataname = "ADSL",
+#'       select = select_spec(
+#'         label = "Select variable:",
+#'         choices = variable_choices(data[["ADSL"]]),
+#'         selected = "COUNTRY",
+#'         fixed = FALSE
+#'       )
+#'     ),
+#'     ggplot2_args = ggplot2_args(
+#'       labs = list(subtitle = "Plot generated by Bivariate Module")
 #'     )
 #'   )
 #' )
@@ -666,7 +661,12 @@ srv_g_bivariate <- function(id,
           expr = {
             # Add facetting labels
             # optional: grid.newpage() # nolint: commented_code.
-            p <- add_facet_labels(p, xfacet_label = nulled_col_facet_name, yfacet_label = nulled_row_facet_name)
+            # Prefixed with teal.modules.general as its usage will appear in "Show R code"
+            p <- teal.modules.general::add_facet_labels(
+              p,
+              xfacet_label = nulled_col_facet_name,
+              yfacet_label = nulled_row_facet_name
+            )
             grid::grid.newpage()
             grid::grid.draw(p)
           },