From 5f0462c12abf9751bcdeacc7e368aa63addc27db Mon Sep 17 00:00:00 2001 From: Joe Zhu Date: Sat, 12 Feb 2022 08:17:59 +0800 Subject: [PATCH] [hotfix to pre-release] [skip vbump] 382 add extra defaults for numeric stats in tm_t_summary and tm_t_summary_by (#384) --- R/tm_t_summary.R | 2 +- R/tm_t_summary_by.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/tm_t_summary.R b/R/tm_t_summary.R index e545d8c413..3ac23cd14f 100644 --- a/R/tm_t_summary.R +++ b/R/tm_t_summary.R @@ -348,7 +348,7 @@ ui_summary <- function(id, ...) { "25% and 75%-ile" = "quantiles", "Min - Max" = "range" ), - selected = a$numeric_stats + selected = c("n", "mean_sd", "median", "range") ), radioButtons( ns("denominator"), diff --git a/R/tm_t_summary_by.R b/R/tm_t_summary_by.R index 59072d9097..c9f12982dc 100644 --- a/R/tm_t_summary_by.R +++ b/R/tm_t_summary_by.R @@ -517,7 +517,7 @@ ui_summary_by <- function(id, ...) { "25% and 75%-ile" = "quantiles", "Min - Max" = "range" ), - selected = a$numeric_stats + selected = c("n", "mean_sd", "median", "range") ), if (a$dataname == a$parentname) { shinyjs::hidden(