feat: improvements to tm_missing

Author: averissimo

R/tm_g_scatterplotmatrix.R

@@ -333,7 +333,9 @@ srv_g_scatterplotmatrix <- function(id,
 
     anl_merged_q <- reactive({
       req(anl_merged_input())
-      qenv <- teal.code::eval_code(data(), 'library("dplyr");library("lattice")') # nolint quotes
+      obj <- data()
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's computation")
+      qenv <- teal.code::eval_code(obj, 'library("dplyr");library("lattice")') # nolint: quotes.
       teal.code::eval_code(qenv, as.expression(anl_merged_input()$expr))
     })
 

R/tm_missing_data.R

@@ -265,7 +265,7 @@ srv_page_missing_data <- function(id, data, reporter, filter_panel_api, dataname
       })
     })
 
-    lapply(
+    result <- sapply(
       datanames,
       function(x) {
         srv_missing_data(
@@ -280,8 +280,18 @@ srv_page_missing_data <- function(id, data, reporter, filter_panel_api, dataname
           ggplot2_args = ggplot2_args,
           decorators = decorators
         )
-      }
+      },
+      USE.NAMES = TRUE,
+      simplify = FALSE
     )
+
+    reactive({
+      if (is.null(input$dataname_tab)) {
+        teal.data::teal_data()
+      } else {
+        result[[input$dataname_tab]]()
+      }
+    })
   })
 }
 
@@ -521,7 +531,10 @@ srv_missing_data <- function(id,
 
       group_var <- input$group_by_var
       anl <- data_r()
-      qenv <- teal.code::eval_code(data(), {
+      obj <- data()
+      teal.reporter::teal_card(obj) <- c(teal.reporter::teal_card(obj), "# Module's computation")
+
+      qenv <- teal.code::eval_code(obj, {
         'library("dplyr");library("ggplot2");library("tidyr");library("gridExtra")' # nolint quotes
       })
 
@@ -1272,6 +1285,7 @@ srv_missing_data <- function(id,
       expr = quote({
         grid::grid.newpage()
         grid::grid.draw(summary_plot)
+        summary_plot
       })
     )
 
@@ -1282,6 +1296,7 @@ srv_missing_data <- function(id,
       expr = quote({
         grid::grid.newpage()
         grid::grid.draw(combination_plot)
+        combination_plot
       })
     )
 
@@ -1417,5 +1432,7 @@ srv_missing_data <- function(id,
       teal.reporter::simple_reporter_srv("simple_reporter", reporter = reporter, card_fun = card_fun)
     }
     ###
+
+    decorated_final_q
   })
 }

R/utils.R

@@ -318,7 +318,7 @@ srv_decorate_teal_data <- function(id, data, decorators, expr) {
         decorated_output()
       } else {
         req(expr_r())
-        teal.code::eval_code(decorated_output(), expr_r(), cache = TRUE)
+        teal.code::eval_code(decorated_output(), expr_r(), keep_output = TRUE)
       }
     })
   })