WIP: Fixes example testing via shinytest2

R/tm_file_viewer.R

@@ -31,7 +31,7 @@
 #'         folder = system.file("sample_files", package = "teal.modules.general"),
 #'         png = system.file("sample_files/sample_file.png", package = "teal.modules.general"),
 #'         txt = system.file("sample_files/sample_file.txt", package = "teal.modules.general"),
-#'         url = "https://fda.gov/files/drugs/published/Portable-Document-Format-Specifications.pdf"
+#'         url = "https://www.fda.gov/files/drugs/published/Portable-Document-Format-Specifications.pdf"
 #'       )
 #'     )
 #'   )

R/tm_g_association.R

@@ -60,8 +60,6 @@
 #' data <- within(data, {
 #'   require(nestcolor)
 #'   CO2 <- CO2
-#'   factors <- names(Filter(isTRUE, vapply(CO2, is.factor, logical(1L))))
-#'   CO2[factors] <- lapply(CO2[factors], as.character)
 #' })
 #'
 #' app <- init(
@@ -72,17 +70,17 @@
 #'         dataname = "CO2",
 #'         select = select_spec(
 #'           label = "Select variable:",
-#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),
-#'           selected = "Plant",
+#'           choices = variable_choices(data[["CO2"]], c("conc", "uptake")),
+#'           selected = "conc",
 #'           fixed = FALSE
 #'         )
 #'       ),
 #'       vars = data_extract_spec(
 #'         dataname = "CO2",
 #'         select = select_spec(
 #'           label = "Select variables:",
-#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment")),
-#'           selected = "Treatment",
+#'           choices = variable_choices(data[["CO2"]], c("Plant", "Type", "Treatment", "conc", "uptake")),
+#'           selected = "uptake",
 #'           multiple = TRUE,
 #'           fixed = FALSE
 #'         )
@@ -117,9 +115,9 @@
 #'           label = "Select variable:",
 #'           choices = variable_choices(
 #'             data[["ADSL"]],
-#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")
+#'             c("AGE", "BMRKR1", "LDDTHELD")
 #'           ),
-#'           selected = "RACE",
+#'           selected = "AGE",
 #'           fixed = FALSE
 #'         )
 #'       ),
@@ -129,7 +127,7 @@
 #'           label = "Select variables:",
 #'           choices = variable_choices(
 #'             data[["ADSL"]],
-#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2")
+#'             c("SEX", "RACE", "COUNTRY", "ARM", "STRATA1", "STRATA2", "ITTFL", "BMRKR2", "AGE", "BMRKR1", "LDDTHELD")
 #'           ),
 #'           selected = "BMRKR2",
 #'           multiple = TRUE,

R/tm_variable_browser.R

@@ -886,7 +886,7 @@ get_plotted_data <- function(input, plot_var, data) {
       teal.reporter::teal_card(obj),
       teal.reporter::teal_card("## Module's output(s)")
     )
-  teal.code::eval_code(obj, "library(ggplot2)") |>
+  teal.code::eval_code(obj, "library(ggplot2)\nlibrary(dplyr)") |>
     within(
       {
         ANL <- dplyr::select(dataset_name, varname)

R/utils.R

@@ -234,6 +234,7 @@ variable_type_icons <- function(var_type) {
   ))
 }
 
+#' JavaScript expression to check if a tab is active
 #'
 #' @param id (`character(1)`) the id of the tab panel with tabs.
 #' @param name (`character(1)`) the name of the tab.