From f7659d7090effcd19658edd537db7c1b32396867 Mon Sep 17 00:00:00 2001 From: unknown Date: Thu, 5 Oct 2023 18:00:42 +0530 Subject: [PATCH] fixing cmd checks --- R/tm_outliers.R | 2 +- R/tm_t_crosstable.R | 2 +- R/tm_variable_browser.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/tm_outliers.R b/R/tm_outliers.R index 7aa0bff25..cd5d4f552 100644 --- a/R/tm_outliers.R +++ b/R/tm_outliers.R @@ -1146,7 +1146,7 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var, ### REPORTER if (with_reporter) { - card_fun <- function(comment) { + card_fun <- function(comment, label) { tab_type <- input$tabs card <- card_template( title = paste0("Outliers - ", tab_type), diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R index 95c0d3347..3ffd782e2 100644 --- a/R/tm_t_crosstable.R +++ b/R/tm_t_crosstable.R @@ -351,7 +351,7 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y, ### REPORTER if (with_reporter) { - card_fun <- function(comment) { + card_fun <- function(comment, label) { card <- card_template( title = "Cross Table", label = label, diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R index 97745314b..e972f3027 100644 --- a/R/tm_variable_browser.R +++ b/R/tm_variable_browser.R @@ -500,7 +500,7 @@ srv_variable_browser <- function(id, ### REPORTER if (with_reporter) { - card_fun <- function(comment) { + card_fun <- function(comment, label) { card <- card_template( title = "Variable Browser Plot", label = label,