WIP: Fixes example testing via shinytest2

R/tm_file_viewer.R

@@ -31,7 +31,10 @@
 #'         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 = file.path(
+#'           "https://www.fda.gov/files/drugs/published",
+#'           "Portable-Document-Format-Specifications.pdf"
+#'         )
 #'       )
 #'     )
 #'   )

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)