diff --git a/DESCRIPTION b/DESCRIPTION index 87d12ab93..0014dafee 100644 --- a/DESCRIPTION +++ b/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), diff --git a/R/tm_g_distribution.R b/R/tm_g_distribution.R index 2975314b8..75fc740ce 100644 --- a/R/tm_g_distribution.R +++ b/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({ diff --git a/R/tm_missing_data.R b/R/tm_missing_data.R index e5b81230d..8b6268947 100644 --- a/R/tm_missing_data.R +++ b/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"]] } }) diff --git a/R/tm_outliers.R b/R/tm_outliers.R index c1686c379..96526ffb0 100644 --- a/R/tm_outliers.R +++ b/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)) diff --git a/man/tm_missing_data.Rd b/man/tm_missing_data.Rd index 57325baf7..e950dc8e4 100644 --- a/man/tm_missing_data.Rd +++ b/man/tm_missing_data.Rd @@ -87,7 +87,7 @@ This module generates the following objects, which can be modified in place usin \item \code{summary_plot} (\code{grob} created with \code{\link[ggplot2:ggplotGrob]{ggplot2::ggplotGrob()}}) \item \code{combination_plot} (\code{grob} created with \code{\link[ggplot2:ggplotGrob]{ggplot2::ggplotGrob()}}) \item \code{by_subject_plot} (\code{ggplot2}) -\item \code{table} (\code{listing_df} created with \code{\link[rlistings:listings]{rlistings::as_listing()}}) +\item \code{table} (\code{datatable} created with \code{\link[DT:datatable]{DT::datatable()}}) } A Decorator is applied to the specific output using a named list of \code{teal_transform_module} objects.