new_teal_data env to data

insightsengineering · Oct 6, 2023 · 8164671 · 8164671
1 parent c3eab5a
commit 8164671
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/module_teal_with_splash.R b/R/module_teal_with_splash.R
@@ -72,7 +72,7 @@ srv_teal_with_splash <- function(id, data, modules, filter = teal_slices()) {
       reactiveVal(data)
     } else if (teal.data::is_pulled(data)) {
       new_data <- new_teal_data(
-        env = lapply(data$get_datasets(), function(x) x$get_raw_data()),
+        data = lapply(data$get_datasets(), function(x) x$get_raw_data()),
         code = data$get_code(),
         keys = data$get_join_keys()
       )
@@ -82,7 +82,7 @@ srv_teal_with_splash <- function(id, data, modules, filter = teal_slices()) {
       raw_data <- reactive({
         data <- raw_data_old()
         new_teal_data(
-          env = lapply(data$get_datasets(), function(x) x$get_raw_data()),
+          data = lapply(data$get_datasets(), function(x) x$get_raw_data()),
           code = data$get_code(),
           keys = data$get_join_keys()
         )