From 10d210624adcc807a3720e127c9359516fd51ece Mon Sep 17 00:00:00 2001
From: unknown <kirar.kartikeya1@gmail.com>
Date: Fri, 12 Apr 2024 15:23:26 +0530
Subject: [PATCH] removing modules call.

---
 tests/testthat/helper-TealAppDriver.R | 30 +++++++++++++--------------
 1 file changed, 14 insertions(+), 16 deletions(-)

diff --git a/tests/testthat/helper-TealAppDriver.R b/tests/testthat/helper-TealAppDriver.R
index f0712c233..13355d29e 100644
--- a/tests/testthat/helper-TealAppDriver.R
+++ b/tests/testthat/helper-TealAppDriver.R
@@ -34,22 +34,20 @@ simple_cdisc_data <- function(datasets = c("ADSL", "ADRS", "ADTTE")) {
 app_driver_tm_data_table <- function() {
   app <- TealAppDriver$new(
     data = simple_teal_data(),
-    modules = teal::modules(
-      tm_data_table(
-        label = "Data Table",
-        variables_selected = list(
-          iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")
-        ),
-        datasets_selected = c("iris", "mtcars"),
-        dt_args = list(caption = "Table Caption"),
-        dt_options = list(
-          searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100),
-          scrollX = TRUE
-        ),
-        server_rendering = FALSE,
-        pre_output = NULL,
-        post_output = NULL
-      )
+    modules = tm_data_table(
+      label = "Data Table",
+      variables_selected = list(
+        iris = c("Sepal.Length", "Sepal.Width", "Petal.Length", "Petal.Width", "Species")
+      ),
+      datasets_selected = c("iris", "mtcars"),
+      dt_args = list(caption = "Table Caption"),
+      dt_options = list(
+        searching = FALSE, pageLength = 30, lengthMenu = c(5, 15, 30, 100),
+        scrollX = TRUE
+      ),
+      server_rendering = FALSE,
+      pre_output = NULL,
+      post_output = NULL
     ),
     timeout = 3000
   )