WIP: Fixes example testing via shinytest2 (#947)

# Pull Request

WIP: using "ready" status for testing purposes

Fixes #nnn

- Detected these errors when testing
#944

### Changes description:

  - [x] `tm_viewer` throws warning of URL
- [x] ~`tm_g_association` example shows error in application~ fixed in
#949
  - [x] `tm_variable_browser` example cannot find `%>%`

---------

Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>

Author: averissimo

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)