From b6eab08aeb7c316a2441d2cb2adc12b462bc3d94 Mon Sep 17 00:00:00 2001 From: osenan Date: Fri, 26 Jun 2026 08:15:34 +0200 Subject: [PATCH] tests: fix test after change in Shiny --- R/teal_slice.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/teal_slice.R b/R/teal_slice.R index 55820c1d5..245ebafaf 100644 --- a/R/teal_slice.R +++ b/R/teal_slice.R @@ -137,7 +137,7 @@ teal_slice <- function(dataname, formal_args$fixed <- TRUE ts_expr_args <- c("dataname", "id", "expr", "fixed", "anchored", "title") formal_args <- formal_args[ts_expr_args] - ans <- do.call(reactiveValues, c(formal_args, list(...))) + ans <- withReactiveDomain(NULL, do.call(reactiveValues, c(formal_args, list(...)))) class(ans) <- c("teal_slice_expr", "teal_slice", class(ans)) } else if (!missing(varname)) { checkmate::assert_string(varname) @@ -160,7 +160,7 @@ teal_slice <- function(dataname, } else { checkmate::assert_string(id) } - ans <- do.call(reactiveValues, args) + ans <- withReactiveDomain(NULL, do.call(reactiveValues, args)) class(ans) <- c("teal_slice_var", "teal_slice", class(ans)) } else { stop("Must provide either `expr` or `varname`.")