From 8a3820c69a124fc393153e53e688de6218837d32 Mon Sep 17 00:00:00 2001
From: osenan <oriol.senan@businesspartner.roche.com>
Date: Mon, 25 May 2026 13:08:08 +0200
Subject: [PATCH] tests: increase timeout for this test only

---
 tests/testthat/test-shinytest2-data_summary.R | 21 +++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/tests/testthat/test-shinytest2-data_summary.R b/tests/testthat/test-shinytest2-data_summary.R
index a88a6740ac..95526d4555 100644
--- a/tests/testthat/test-shinytest2-data_summary.R
+++ b/tests/testthat/test-shinytest2-data_summary.R
@@ -1,3 +1,24 @@
+withr::local_options(
+  list(
+    shinytest2.timeout = max(
+      getOption("shinytest2.timeout", default = 0),
+      as.numeric(Sys.getenv("SHINYTEST2_TIMEOUT", unset = 0)),
+      30 * 1000
+    ),
+    shinytest2.load_timeout = max(
+      getOption("shinytest2.load_timeout", default = 0),
+      as.numeric(Sys.getenv("SHINYTEST2_LOAD_TIMEOUT", unset = 0)),
+      20 * 10000
+    ),
+    shinytest2.duration = max(
+      getOption("shinytest2.duration", default = 0),
+      as.numeric(Sys.getenv("SHINYTEST2_DURATION", unset = 0)),
+      0.5 * 1000
+    )
+  ),
+  .local_envir = testthat::test_env()
+)
+
 testthat::test_that("e2e: data summary just list the unfilterable objects at the bottom when provided", {
   skip_if_too_deep(5)
   app <- TealAppDriver$new(