chore: cleanup unused report element

Author: averissimo

R/tm_g_distribution.R

@@ -1345,28 +1345,21 @@ srv_distribution <- function(id,
     summary_r <- reactive({
       q <- req(output_summary_q())
 
-      list(
-        html = DT::datatable(
-          q[["summary_table_data"]],
-          options = list(
-            autoWidth = TRUE,
-            columnDefs = list(list(width = "200px", targets = "_all"))
-          ),
-          rownames = FALSE
+      DT::datatable(
+        q[["summary_table_data"]],
+        options = list(
+          autoWidth = TRUE,
+          columnDefs = list(list(width = "200px", targets = "_all"))
         ),
-        report = q[["summary_table"]]
+        rownames = FALSE
       )
     })
 
     output$summary_table <- DT::renderDataTable(summary_r()[["html"]])
 
     tests_r <- reactive({
       q <- req(output_test_q())
-
-      list(
-        html = DT::datatable(q[["test_table_data"]]),
-        report = q[["test_table"]]
-      )
+      DT::datatable(q[["test_table_data"]])
     })
 
     pws1 <- teal.widgets::plot_with_settings_srv(

R/tm_missing_data.R

@@ -1327,22 +1327,19 @@ srv_missing_data <- function(id,
     summary_table_r <- reactive({
       q <- req(decorated_summary_table_q())
 
-      list(
-        html = if (length(input$variables_select) == 0) {
-          # so that zeroRecords message gets printed
-          # using tibble as it supports weird column names, such as " "
-          DT::datatable(
-            tibble::tibble(` ` = logical(0)),
-            options = list(
-              language = list(zeroRecords = "No variable selected."),
-              pageLength = input$levels_table_rows
-            )
+      if (length(input$variables_select) == 0) {
+        # so that zeroRecords message gets printed
+        # using tibble as it supports weird column names, such as " "
+        DT::datatable(
+          tibble::tibble(` ` = logical(0)),
+          options = list(
+            language = list(zeroRecords = "No variable selected."),
+            pageLength = input$levels_table_rows
           )
-        } else {
-          DT::datatable(q[["summary_data"]])
-        },
-        report = q[["table"]]
-      )
+        )
+      } else {
+        DT::datatable(q[["summary_data"]])
+      }
     })
 
     by_subject_plot_r <- reactive({
@@ -1364,7 +1361,7 @@ srv_missing_data <- function(id,
       width = plot_width
     )
 
-    output$levels_table <- DT::renderDataTable(summary_table_r()[["html"]])
+    output$levels_table <- DT::renderDataTable(summary_table_r())
 
     pws3 <- teal.widgets::plot_with_settings_srv(
       id = "by_subject_plot",