fix: wrong function was being called

insightsengineering · Nov 29, 2024 · 0048a41 · 0048a41
1 parent db6793f
commit 0048a41
Show file tree

Hide file tree

Showing 17 changed files with 59 additions and 62 deletions.
diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R
@@ -923,15 +923,16 @@ srv_missing_data <- function(id,
           )
         )
       }
+
       if (isTRUE(input$if_patients_plot)) {
-        teal.code::eval_code(qenv, {
+        within(qenv, {
           g1 <- ggplotGrob(summary_plot_top)
           g2 <- ggplotGrob(summary_plot_bottom)
           summary_plot <- gridExtra::gtable_cbind(g1, g2, size = "first")
           summary_plot$heights <- grid::unit.pmax(g1$heights, g2$heights)
         })
       } else {
-        teal.code::eval_code(qenv, {
+        within(qenv, {
           g1 <- ggplotGrob(summary_plot_top)
           summary_plot <- g1
         })

diff --git a/man/srv_decorate_teal_data.Rd b/man/srv_decorate_teal_data.Rd
diff --git a/man/tm_a_pca.Rd b/man/tm_a_pca.Rd
diff --git a/man/tm_a_regression.Rd b/man/tm_a_regression.Rd
diff --git a/man/tm_data_table.Rd b/man/tm_data_table.Rd