Prevent too early evaluation (#1425)

Language arguments in module$server_args and module$ui_args are used in do.call. `quote = TRUE` prevents `do.call` evaluate language objects.

Author: gogonzo

R/module_nested_tabs.R

@@ -108,7 +108,7 @@ ui_teal_module.teal_module <- function(id, modules, depth = 0L) {
         class = "teal_validated",
         ui_check_module_datanames(ns("validate_datanames"))
       ),
-      do.call(modules$ui, args)
+      do.call(what = modules$ui, args = args, quote = TRUE)
     )
   )
 
@@ -341,9 +341,9 @@ srv_teal_module.teal_module <- function(id,
   }
 
   if (is_arg_used(modules$server, "id")) {
-    do.call(modules$server, args)
+    do.call(what = modules$server, args = args, quote = TRUE)
   } else {
-    do.call(callModule, c(args, list(module = modules$server)))
+    do.call(what = callModule, args = c(args, list(module = modules$server)), quote = TRUE)
   }
 }
 

tests/testthat/test-module_teal.R

@@ -1035,6 +1035,37 @@ testthat::describe("srv_teal teal_modules", {
     )
   })
 
+  testthat::it("srv_teal_module.teal_module passes quoted arguments to the teal_module$server call", {
+    tm_query <- function(query) {
+      module(
+        "module_1",
+        server = function(id, data, query) {
+          moduleServer(id, function(input, output, session) {
+            reactive(q <- eval_code(data(), query))
+          })
+        },
+        server_args = list(query = query)
+      )
+    }
+    shiny::testServer(
+      app = srv_teal,
+      args = list(
+        id = "test",
+        data = teal.data::teal_data(a_dataset = iris),
+        modules = modules(tm_query(quote(a_dataset <- subset(a_dataset, Species == "setosa"))))
+      ),
+      expr = {
+        session$setInputs(`teal_modules-active_tab` = "module_1")
+        session$flushReact()
+
+        testthat::expect_setequal(
+          "setosa",
+          unique(modules_output$module_1()()[["a_dataset"]]$Species)
+        )
+      }
+    )
+  })
+
   testthat::it("srv_teal_module.teal_module passes filter_panel_api if specified", {
     shiny::testServer(
       app = srv_teal,