fix: reactivity on input

averissimo · averissimo · commit 6c353fe697f1 · 2024-11-26T07:38:05.000Z
diff --git a/R/teal_transform_module.R b/R/teal_transform_module.R
@@ -198,8 +198,7 @@ make_teal_transform_server <- function(expr) {
 
   function(id, data) {
     moduleServer(id, function(input, output, session) {
-      list_env <- eventReactive(
-        input,
+      list_env <- reactive(
         lapply(rlang::set_names(names(input)), function(x) input[[x]])
       )
 

Original file line number	Diff line number	Diff line change
`@@ -198,8 +198,7 @@ make_teal_transform_server <- function(expr) {`
`198`	`198`
`199`	`199`	`function(id, data) {`
`200`	`200`	`moduleServer(id, function(input, output, session) {`
`201`		`- list_env <- eventReactive(`
`202`		`- input,`
	`201`	`+ list_env <- reactive(`
`203`	`202`	`lapply(rlang::set_names(names(input)), function(x) input[[x]])`
`204`	`203`	`)`
`205`	`204`