diff --git a/R/tm_file_viewer.R b/R/tm_file_viewer.R
index ba1f061d7..7baceb802 100644
--- a/R/tm_file_viewer.R
+++ b/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"
+#' )
#' )
#' )
#' )
diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
index a7b304e77..232731ccb 100644
--- a/R/tm_variable_browser.R
+++ b/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)
diff --git a/man/tm_file_viewer.Rd b/man/tm_file_viewer.Rd
index a1617b9db..38d0d1339 100644
--- a/man/tm_file_viewer.Rd
+++ b/man/tm_file_viewer.Rd
@@ -40,7 +40,10 @@ app <- init(
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"
+ )
)
)
)
@@ -53,8 +56,8 @@ if (interactive()) {
\section{Examples in Shinylive}{
\describe{
\item{example-1}{
- \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqX8opKAeNdqAfQ8vG3dPbyNdAHdaUgALFXYgqFxdECVdXSSfTLCME2Z4dgBGRQgAX1KlNFRslRj2dJyvXQBeJuTGviERUVbdLuExBogMjNIYfxNaEX8tWjhImWHR0ZVUQVJ-VE9YvrpRUmWV0ZMian4ZPtFWA7gYPOm4BrBRWFQZqZ6FPF1tggBrKBSPrfPy8ASDcRSCBqajfOS4RrHX4QCRXG7ke6fJ7fV4wd5wSaPUQAejxBKJIgwqFR3xSf0BwLaoLg3HB3TEkmksnhiJGyN0pAAHqR0bcsY9nuSPsSyW8ZVThaQ6b91Iy9MywGCBj0uTCeWAEUjjoJGNQQWBYqRSKhRIgSSSTB5JEQtI7ZfxGIIJKT1vR9rE4PwSQAFIiMLz+uCGAAiRAIgngZEMADFwzBPIYAMqoOAEWhTAieKwQcSofgmb7GjKlFa13SlUoF3TsFTkZiWHQ2WxpfmieIQVgAQXQ7GqABJBLQUhPRDIdIxSmUlGAygBdIA}{Open in Shinylive}
- \if{html}{\out{}}
+ \href{https://shinylive.io/r/app/#code=NobwRAdghgtgpmAXGKAHVA6ASmANGAYwHsIAXOMpMAGwEsAjAJykYE8AKcqajGIgEwCu1OAGcMAcwpxm1AJQAdCLTIyoBUrQBucAAQAeALS6AZoIgbaJdnN0AVLAFUAokqX8opKAeNdqAfQ8vG3dPbyNdAHdaUgALFXYgqFxdECVdXSSfTLCME2Z4dgBGRQgAX1KlNFRslRj2dJyvXQBeJuTGviERUVbdLuExBogMjNIYfxNaEX8tWjhImWHR0ZVUQVJ-VE9YvrpRUmWV0ZMian4ZPtFWA7gYPOm4BrBRWFQZqZ6FPF1tggBrKBSPrfPy8ASDcRSCBqajfOS4RrHX4QCRXG7ke6fJ7fV4wd5wSaPUQAejxBKJIgwqFR3xSf0BwLaoLg3HB3TEkmksnhiJGyN0pAAHqR0bcsY9nuSPsSyW8ZVThaQ6b91Iy9MywGCBj0uTCeWAEUjjoJGNQ+tjqTsjgLdN9YqRSKhRIgSSTIh68h5JEQtCTsaT+IxBBJSet6PtYnB+HTjcjvgAFIiMLwRuCGAAiRAIgngZEMADFkzBPIYAMqoOAEWhTAieKwQcSofgmb5x0alZGdjuNUqlGu6dgqcjMSw6Gy2NL80TxCCsACC6HY1QAJIJaClV6IZDpGKUykowGUALpAA}{Open in Shinylive}
+ \if{html}{\out{}}
\if{html}{\out{}}
}
}