fix resolve (#967)

NEWS.md

@@ -1,4 +1,4 @@
-# teal 0.14.0.9019
+# teal 0.14.0.9020
 
 ### New features
 

R/module_nested_tabs.R

@@ -213,7 +213,7 @@ srv_nested_tabs.teal_module <- function(id, datasets, modules, is_module_specifi
   moduleServer(id = id, module = function(input, output, session) {
     modules$server_args <- teal.transform::resolve_delayed(modules$server_args, datasets)
     if (!is.null(modules$datanames) && is_module_specific) {
-      datasets$srv_filter_panel("module_filter_panel", active_datanames = reactive(modules$datanames))
+      datasets$srv_filter_panel("module_filter_panel")
     }
 
     # Create two triggers to limit reactivity between filter-panel and modules.

R/module_teal.R

@@ -195,7 +195,7 @@ srv_teal <- function(id, modules, teal_data_rv, filter = teal_slices()) {
             modules$datanames
           }
           # todo: subset teal_data to datanames
-          datasets_module <- teal_data_to_filtered_data(teal_data_rv())
+          datasets_module <- teal_data_to_filtered_data(teal_data_rv(), datanames = datanames)
 
           # set initial filters
           #  - filtering filters for this module

R/utils.R

@@ -55,13 +55,13 @@ include_parent_datanames <- function(dataname, join_keys) {
 #' @param x (`teal_data`) object
 #' @return (`FilteredData`) object
 #' @keywords internal
-teal_data_to_filtered_data <- function(x) {
+teal_data_to_filtered_data <- function(x, datanames = teal.data::datanames(x)) {
   checkmate::assert_class(x, "teal_data")
-  datanames <- x@datanames
+  checkmate::assert_character(datanames)
 
   teal.slice::init_filtered_data(
     x = as.list(x@env)[datanames],
-    join_keys = x@join_keys,
+    join_keys = join_keys(x)[datanames],
     code = teal.data:::CodeClass$new(
       code = paste(teal.code::get_code(x), collapse = "\n"),
       dataname = teal.data::get_dataname(x)