From 20ca2ad821064325b7d0f74f9963f07c136f801e Mon Sep 17 00:00:00 2001 From: kartikeya Date: Wed, 21 Jun 2023 11:37:43 +0530 Subject: [PATCH] adding module_add parameter. --- R/teal_filters.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/R/teal_filters.R b/R/teal_filters.R index abf3318dbc..0748992f2a 100644 --- a/R/teal_filters.R +++ b/R/teal_filters.R @@ -48,11 +48,13 @@ teal_filters <- function(..., exclude_varnames = NULL, include_varnames = NULL, count_type = NULL, + module_add = TRUE, mapping = list(), module_specific = length(mapping) > 0) { shiny::isolate({ checkmate::assert_list(mapping, names = "named") checkmate::assert_flag(module_specific) + checkmate::assert_flag(module_add) modules_mapped <- setdiff(names(mapping), "global_filters") if (length(modules_mapped) && !module_specific) { stop( @@ -65,7 +67,8 @@ teal_filters <- function(..., ..., exclude_varnames = exclude_varnames, include_varnames = include_varnames, - count_type = count_type + count_type = count_type, + module_add = module_add ) all_slice_id <- vapply(fs, `[[`, character(1), "id")