Fix decorators

DESCRIPTION

@@ -48,7 +48,6 @@ Imports:
     lattice (>= 0.18-4),
     lifecycle (>= 0.2.0),
     MASS (>= 7.3-61),
-    rlistings (>= 0.2.8),
     rtables (>= 0.6.8),
     scales (>= 1.3.0),
     shinyjs (>= 2.1.0),

R/tm_g_distribution.R

@@ -541,7 +541,7 @@ srv_distribution <- function(id,
 
     qenv <- teal.code::eval_code(
       data(),
-      'library("ggplot2");library("rlistings");library("dplyr")' # nolint quotes
+      'library("ggplot2");library("dplyr")' # nolint quotes
     )
 
     anl_merged_q <- reactive({

R/tm_missing_data.R

@@ -23,7 +23,7 @@
 #' - `summary_plot` (`grob` created with [ggplot2::ggplotGrob()])
 #' - `combination_plot` (`grob` created with [ggplot2::ggplotGrob()])
 #' - `by_subject_plot` (`ggplot2`)
-#' - `table` (`listing_df` created with [rlistings::as_listing()])
+#' - `table` (`datatable` created with [DT::datatable()])
 #'
 #' A Decorator is applied to the specific output using a named list of `teal_transform_module` objects.
 #' The name of this list corresponds to the name of the output to which the decorator is applied.
@@ -1114,7 +1114,7 @@ srv_missing_data <- function(id,
       qenv <- if (!is.null(group_var)) {
         common_code_libraries_q <- teal.code::eval_code(
           common_code_q(),
-          'library("forcats");library("glue");library("rlistings")' # nolint quotes
+          'library("forcats");library("glue");' # nolint quotes
         )
         teal.code::eval_code(
           common_code_libraries_q,
@@ -1154,7 +1154,7 @@ srv_missing_data <- function(id,
         )
       }
 
-      within(qenv, table <- rlistings::as_listing(summary_data))
+      within(qenv, table <- DT::datatable(summary_data))
     })
 
     by_subject_plot_q <- reactive({
@@ -1331,7 +1331,7 @@ srv_missing_data <- function(id,
           options = list(language = list(zeroRecords = "No variable selected."), pageLength = input$levels_table_rows)
         )
       } else {
-        DT::datatable(decorated_summary_table_q()[["summary_data"]])
+        decorated_summary_table_q()[["table"]]
       }
     })
 

R/tm_outliers.R

@@ -443,7 +443,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
         data(),
         paste0(
           'library("dplyr");library("tidyr");', # nolint quotes
-          'library("tibble");library("ggplot2");library("rlistings")'
+          'library("tibble");library("ggplot2");'
         )
       ) %>% # nolint quotes
         teal.code::eval_code(as.expression(anl_merged_input()$expr))