From 0e95800bb2ff1b17588f5bce969d116f17cd276c Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 07:21:51 -0700
Subject: [PATCH 01/24] Updated ui functions unit tests

---
 tests/testthat/_snaps/ui_functions.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/_snaps/ui_functions.md b/tests/testthat/_snaps/ui_functions.md
index 324f167d..ba5acdf1 100644
--- a/tests/testthat/_snaps/ui_functions.md
+++ b/tests/testthat/_snaps/ui_functions.md
@@ -419,7 +419,7 @@
             <img alt="Working..." hspace="5px" src="img/loader.gif"/>
           </div>
           <div id="app_header">
-            <a id="app_info" href="#" class="action-button">periscope Example Application</a>
+            <a id="app_info" href="#" class="action-button action-link"><span class="action-label">periscope Example Application</span></a>
           </div>
         </div>
         <ul class="navbar-nav ml-auto navbar-right">

From f82c8b4d598d8a93c8ae57a36f8b8c78f1a27436 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 07:41:06 -0700
Subject: [PATCH 02/24] - Fixed log viewer unit test

---
 DESCRIPTION                         | 2 +-
 tests/testthat/_snaps/log_viewer.md | 4 ----
 tests/testthat/test_log_viewer.R    | 3 ++-
 3 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 1086dd70..673df07a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: periscope2
 Type: Package
 Title: Enterprise Streamlined 'shiny' Application Framework Using 'bs4Dash'
-Version: 0.3.1.9000
+Version: 0.3.1.9001
 Authors@R: c(
     person("Mohammed", "Ali",      role = c("aut", "cre"), email   = "mohammed@aggregate-genius.com"),
     person("Constance", "Brett",   role = c("ctb")),
diff --git a/tests/testthat/_snaps/log_viewer.md b/tests/testthat/_snaps/log_viewer.md
index 99c835d9..d7bc6408 100644
--- a/tests/testthat/_snaps/log_viewer.md
+++ b/tests/testthat/_snaps/log_viewer.md
@@ -23,7 +23,3 @@
     <div class="reactable html-widget html-widget-output shiny-report-size html-fill-item" data-reactable-output="myid-myid-reactTableOutputID" id="myid-myid-reactTableOutputID" style="width:auto;height:auto;"></div>
     
 
-# logViewer - valid sample log
-
-    {"x":{"tag":{"name":"Reactable","attribs":{"data":{"action":["Be Sure to Remember to Log ALL user actions","Sample Title (click for an info pop-up) started with log level <DEBUG>","Application Reset requested by user.  Resetting in  5 seconds"],"time":["02-19-2022 14:03","02-19-2022 14:03","02-19-2022 14:04"]},"columns":[{"id":"action","name":"action","type":"character"},{"id":"time","name":"time","type":"character"}],"searchable":true,"pagination":false,"highlight":true,"striped":true,"height":"600px","dataKey":"b624cab69fef11e8d7efb72689e14787","static":false},"children":[]},"class":"reactR_markup"},"evals":[],"jsHooks":[],"deps":[]} 
-
diff --git a/tests/testthat/test_log_viewer.R b/tests/testthat/test_log_viewer.R
index 66e8c4cd..a4c63a70 100644
--- a/tests/testthat/test_log_viewer.R
+++ b/tests/testthat/test_log_viewer.R
@@ -22,7 +22,8 @@ test_that("logViewer - valid sample log", {
     testServer(logViewer,
                args = list(id = "myid", logger = sample_log),
                expr = {
-                   expect_snapshot_output(output$"myid-reactTableOutputID")
+                   expect_true(grepl("Be Sure to Remember to Log ALL user actions", output$"myid-reactTableOutputID", fixed = TRUE))
+                   expect_true(grepl("Resetting in  5 seconds", output$"myid-reactTableOutputID", fixed = TRUE))
                })
 })
 

From ea7eb217c5edc7675dd654c39e148956a15def62 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 08:09:52 -0700
Subject: [PATCH 03/24] Removed unneeded and always failing GitHub cmd check

---
 .github/workflows/R-CMD-check.yaml | 29 -----------------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 .github/workflows/R-CMD-check.yaml

diff --git a/.github/workflows/R-CMD-check.yaml b/.github/workflows/R-CMD-check.yaml
deleted file mode 100644
index b3e70c68..00000000
--- a/.github/workflows/R-CMD-check.yaml
+++ /dev/null
@@ -1,29 +0,0 @@
-# Workflow derived from https://github.com/r-lib/actions/tree/v2/examples
-# Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
-on:
-  push:
-    branches: [can-dev]
-  pull_request:
-    branches: [can-dev]
-
-name: R-CMD-check
-
-jobs:
-  R-CMD-check:
-    runs-on: ubuntu-latest
-    env:
-      GITHUB_PAT: ${{ secrets.GITHUB_TOKEN }}
-      R_KEEP_PKG_SOURCE: yes
-    steps:
-      - uses: actions/checkout@v3
-
-      - uses: r-lib/actions/setup-r@v2
-        with:
-          use-public-rspm: true
-
-      - uses: r-lib/actions/setup-r-dependencies@v2
-        with:
-          extra-packages: any::rcmdcheck
-          needs: check
-
-      - uses: r-lib/actions/check-r-package@v2

From 623c0d8f935820acc245f6484cbd90c717b06e8e Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 08:31:35 -0700
Subject: [PATCH 04/24] - Updated shiny repo for R 4.0.5

---
 .circleci/config.yml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 741d3bfb..2bdfc161 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -34,7 +34,8 @@ jobs:
       - run:
           name: Install R dependencies
           command: |
-            R -e 'install.packages("shiny", repos = "https://cran.rstudio.com/")'
+            R -e 'options(repos = c(CRAN = "https://posit.co")); install.packages(c("remotes", "shiny"))'
+            R -e 'remotes::install_deps(dependencies = TRUE, upgrade = "always")'
             R -e 'install.packages("bs4Dash", repos = "https://cran.rstudio.com/")'
             R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx", "spelling", "colourpicker", "lifecycle"))'

From d8564e2505cc48525d7d766c6a2ad90cd239cc84 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 08:45:39 -0700
Subject: [PATCH 05/24] - Added more logs to circleci to understand the failing
 issue

---
 .circleci/config.yml | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 2bdfc161..90b5bfd2 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -34,7 +34,18 @@ jobs:
       - run:
           name: Install R dependencies
           command: |
-            R -e 'options(repos = c(CRAN = "https://posit.co")); install.packages(c("remotes", "shiny"))'
+            # 1. Show existing library path configuration
+            R -e '.libPaths()'
+
+            # 2. Log what version of shiny is currently visible BEFORE installing
+            R -e 'if (system.file(package="shiny") != "") print(packageVersion("shiny")) else print("Shiny is completely missing")'
+
+            # 3. Force R to treat warnings as hard errors (warn = 2) so failures aren't hidden
+            # Also, add dependencies = TRUE to force downstream libraries to update
+            R -e 'options(warn = 2); install.packages("shiny", repos = "https://rstudio.com", dependencies = TRUE)'
+
+            # 4. Confirm if the version successfully updated to >= 1.7
+            R -e 'print(packageVersion("shiny"))'
             R -e 'remotes::install_deps(dependencies = TRUE, upgrade = "always")'
             R -e 'install.packages("bs4Dash", repos = "https://cran.rstudio.com/")'
             R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'

From 7da400f55c2e9448a0621a02c3347cf385fb276a Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 08:57:17 -0700
Subject: [PATCH 06/24] - Trying repo "posit.co"

---
 .circleci/config.yml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 90b5bfd2..14dec4df 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -42,11 +42,10 @@ jobs:
 
             # 3. Force R to treat warnings as hard errors (warn = 2) so failures aren't hidden
             # Also, add dependencies = TRUE to force downstream libraries to update
-            R -e 'options(warn = 2); install.packages("shiny", repos = "https://rstudio.com", dependencies = TRUE)'
+            R -e 'options(warn = 2); options(repos = c(CRAN = "https://posit.co")); install.packages("shiny", dependencies = TRUE)'
 
             # 4. Confirm if the version successfully updated to >= 1.7
             R -e 'print(packageVersion("shiny"))'
-            R -e 'remotes::install_deps(dependencies = TRUE, upgrade = "always")'
             R -e 'install.packages("bs4Dash", repos = "https://cran.rstudio.com/")'
             R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx", "spelling", "colourpicker", "lifecycle"))'

From cdaccd58561a10cd13dc7882077a6b5c12b44967 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 09:01:54 -0700
Subject: [PATCH 07/24] - Try cran.rstudio repo

---
 .circleci/config.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 14dec4df..3485c0fd 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -42,7 +42,7 @@ jobs:
 
             # 3. Force R to treat warnings as hard errors (warn = 2) so failures aren't hidden
             # Also, add dependencies = TRUE to force downstream libraries to update
-            R -e 'options(warn = 2); options(repos = c(CRAN = "https://posit.co")); install.packages("shiny", dependencies = TRUE)'
+            R -e 'options(warn = 2); install.packages("shiny", repos = "https://cran.rstudio.com/", dependencies = TRUE)'
 
             # 4. Confirm if the version successfully updated to >= 1.7
             R -e 'print(packageVersion("shiny"))'

From 252167077923f178cdf5dea692338d602d1bb8b5 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 09:32:35 -0700
Subject: [PATCH 08/24] - Added repo to support older R version

---
 .circleci/config.yml | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 3485c0fd..d0494460 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -36,21 +36,30 @@ jobs:
           command: |
             # 1. Show existing library path configuration
             R -e '.libPaths()'
-
             # 2. Log what version of shiny is currently visible BEFORE installing
             R -e 'if (system.file(package="shiny") != "") print(packageVersion("shiny")) else print("Shiny is completely missing")'
+            # 3. Pin to a Posit Package Manager snapshot compatible with R 4.0.5.
+            #    Mid-2022 is a safe window: shiny 1.7.x, promises 1.2.x, httr2 0.2.x, testthat 3.1.x
+            #    all still supported R >= 3.x/4.0.
+            export CRAN_REPO="https://packagemanager.posit.co/cran/2022-06-01"
+            echo "options(repos = c(CRAN = '${CRAN_REPO}'))" >> ~/.Rprofile
+            echo "options(HTTPUserAgent = sprintf('R/%s R (%s)', getRversion(), paste(getRversion(), R.version\$platform, R.version\$arch, R.version\$os)))" >> ~/.Rprofile
+
+            # 4. Verify the repo is set
+            R -e 'getOption("repos")'
 
-            # 3. Force R to treat warnings as hard errors (warn = 2) so failures aren't hidden
-            # Also, add dependencies = TRUE to force downstream libraries to update
-            R -e 'options(warn = 2); install.packages("shiny", repos = "https://cran.rstudio.com/", dependencies = TRUE)'
+            # 5. Install shiny (will now resolve to a 4.0.5-compatible version)
+            R -e 'options(warn = 2); install.packages("shiny", dependencies = TRUE)'
 
-            # 4. Confirm if the version successfully updated to >= 1.7
+            # 6. Confirm the version
             R -e 'print(packageVersion("shiny"))'
-            R -e 'install.packages("bs4Dash", repos = "https://cran.rstudio.com/")'
+
+            # 7. Remaining packages – all pulled from the same pinned snapshot
+            R -e 'install.packages("bs4Dash")'
             R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx", "spelling", "colourpicker", "lifecycle"))'
             R -e 'install.packages("reactable")'
-            R -e 'install.packages("openxlsx2", repos = "https://cloud.r-project.org")'
+            R -e 'install.packages("openxlsx2")'
 
       - run:
           name: Session information and installed package versions

From 1d1c3d69be2b9da630061d2539638b3a534f946c Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 09:54:22 -0700
Subject: [PATCH 09/24] - Adding more generic solution

---
 .circleci/config.yml | 31 ++++++++++++++++++-------------
 1 file changed, 18 insertions(+), 13 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index d0494460..c7a268ab 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -34,33 +34,38 @@ jobs:
       - run:
           name: Install R dependencies
           command: |
-            # 1. Show existing library path configuration
             R -e '.libPaths()'
-            # 2. Log what version of shiny is currently visible BEFORE installing
             R -e 'if (system.file(package="shiny") != "") print(packageVersion("shiny")) else print("Shiny is completely missing")'
-            # 3. Pin to a Posit Package Manager snapshot compatible with R 4.0.5.
-            #    Mid-2022 is a safe window: shiny 1.7.x, promises 1.2.x, httr2 0.2.x, testthat 3.1.x
-            #    all still supported R >= 3.x/4.0.
-            export CRAN_REPO="https://packagemanager.posit.co/cran/2022-06-01"
+
+            # Use a LATER snapshot (early 2023) so openxlsx2 and newer bs4Dash exist.
+            # 2023-04-01 is after openxlsx2's CRAN debut but still generally friendly to R 4.0.5.
+            export CRAN_REPO="https://packagemanager.posit.co/cran/2023-04-01"
             echo "options(repos = c(CRAN = '${CRAN_REPO}'))" >> ~/.Rprofile
             echo "options(HTTPUserAgent = sprintf('R/%s R (%s)', getRversion(), paste(getRversion(), R.version\$platform, R.version\$arch, R.version\$os)))" >> ~/.Rprofile
-
-            # 4. Verify the repo is set
             R -e 'getOption("repos")'
 
-            # 5. Install shiny (will now resolve to a 4.0.5-compatible version)
-            R -e 'options(warn = 2); install.packages("shiny", dependencies = TRUE)'
+            # --- Pin the problem packages that dropped R 4.0.5 support ---
+            # Install remotes first (needed for install_version)
+            R -e 'install.packages("remotes")'
+
+            # Pin versions known to still support R >= 4.0
+            R -e 'remotes::install_version("promises",  version = "1.2.1",   upgrade = "never")'
+            R -e 'remotes::install_version("httr2",     version = "0.2.3",   upgrade = "never")'
+            R -e 'remotes::install_version("testthat",  version = "3.1.10",  upgrade = "never")'
+            R -e 'remotes::install_version("shiny",     version = "1.7.5",   upgrade = "never")'
 
-            # 6. Confirm the version
             R -e 'print(packageVersion("shiny"))'
 
-            # 7. Remaining packages – all pulled from the same pinned snapshot
-            R -e 'install.packages("bs4Dash")'
+            # --- The rest come from the 2023-04-01 snapshot ---
+            R -e 'options(warn = 2); install.packages("bs4Dash", dependencies = TRUE)'
             R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx", "spelling", "colourpicker", "lifecycle"))'
             R -e 'install.packages("reactable")'
             R -e 'install.packages("openxlsx2")'
 
+            # Sanity check versions periscope2 cares about
+            R -e 'print(packageVersion("bs4Dash")); print(packageVersion("openxlsx2")); print(packageVersion("shiny"))'
+
       - run:
           name: Session information and installed package versions
           command: |

From 6126615da4fe10df363d9049aaf164ac4f1ae4f2 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 20:38:46 -0700
Subject: [PATCH 10/24] - Updated package version to 0.4.0 - Updated NEWS file
 - Updated CircleCI - Bumped minimum R version to 4.2 to keep up with modern
 shiny/promises/httr2/testthat.

---
 .circleci/config.yml | 41 +++++++----------------------------------
 DESCRIPTION          |  4 ++--
 NEWS.md              |  5 ++++-
 3 files changed, 13 insertions(+), 37 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index c7a268ab..2c896ce9 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -9,14 +9,14 @@ workflows:
   version: 2
   Prepare-All-R-Editions:
     jobs:
-      - Build-for-r4_0_5
+      - Build-for-r4_2_0
       - Build-for-rLATEST
 
 jobs:
 
-  Build-for-r4_0_5:
+  Build-for-r4_2_0:
     docker:
-      - image: rocker/verse:4.0.5
+      - image: rocker/verse:4.2
 
     steps:
       - checkout
@@ -34,37 +34,10 @@ jobs:
       - run:
           name: Install R dependencies
           command: |
-            R -e '.libPaths()'
-            R -e 'if (system.file(package="shiny") != "") print(packageVersion("shiny")) else print("Shiny is completely missing")'
-
-            # Use a LATER snapshot (early 2023) so openxlsx2 and newer bs4Dash exist.
-            # 2023-04-01 is after openxlsx2's CRAN debut but still generally friendly to R 4.0.5.
-            export CRAN_REPO="https://packagemanager.posit.co/cran/2023-04-01"
-            echo "options(repos = c(CRAN = '${CRAN_REPO}'))" >> ~/.Rprofile
-            echo "options(HTTPUserAgent = sprintf('R/%s R (%s)', getRversion(), paste(getRversion(), R.version\$platform, R.version\$arch, R.version\$os)))" >> ~/.Rprofile
-            R -e 'getOption("repos")'
-
-            # --- Pin the problem packages that dropped R 4.0.5 support ---
-            # Install remotes first (needed for install_version)
-            R -e 'install.packages("remotes")'
-
-            # Pin versions known to still support R >= 4.0
-            R -e 'remotes::install_version("promises",  version = "1.2.1",   upgrade = "never")'
-            R -e 'remotes::install_version("httr2",     version = "0.2.3",   upgrade = "never")'
-            R -e 'remotes::install_version("testthat",  version = "3.1.10",  upgrade = "never")'
-            R -e 'remotes::install_version("shiny",     version = "1.7.5",   upgrade = "never")'
-
-            R -e 'print(packageVersion("shiny"))'
-
-            # --- The rest come from the 2023-04-01 snapshot ---
-            R -e 'options(warn = 2); install.packages("bs4Dash", dependencies = TRUE)'
-            R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
-            R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx", "spelling", "colourpicker", "lifecycle"))'
-            R -e 'install.packages("reactable")'
-            R -e 'install.packages("openxlsx2")'
-
-            # Sanity check versions periscope2 cares about
-            R -e 'print(packageVersion("bs4Dash")); print(packageVersion("openxlsx2")); print(packageVersion("shiny"))'
+            R -e 'install.packages(c("bs4Dash", "shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
+            R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx",  "openxlsx2", "spelling", "colourpicker", "lifecycle"))'
+            R -e 'install.packages("covr")'
+            R -e 'install.packages("reactable")
 
       - run:
           name: Session information and installed package versions
diff --git a/DESCRIPTION b/DESCRIPTION
index 673df07a..b3d3084a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: periscope2
 Type: Package
 Title: Enterprise Streamlined 'shiny' Application Framework Using 'bs4Dash'
-Version: 0.3.1.9001
+Version: 0.4.0.9001
 Authors@R: c(
     person("Mohammed", "Ali",      role = c("aut", "cre"), email   = "mohammed@aggregate-genius.com"),
     person("Constance", "Brett",   role = c("ctb")),
@@ -18,7 +18,7 @@ License: GPL-3
 Encoding: UTF-8
 Language: en-US
 Depends:
-    R (>= 4.0)
+    R (>= 4.2)
 Imports:
     shiny (>= 1.7),
     bs4Dash (>= 2.3),
diff --git a/NEWS.md b/NEWS.md
index 35dc7369..20491a7d 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,4 +1,7 @@
-# periscope2 0.3.1
+# periscope2 0.4.0
+
+## New Features
+- Bumped minimum R version to 4.2 to keep up with modern shiny/promises/httr2/testthat.
 
 ## Enhancements
 

From 315adedfef412144ef3451933ed51588be7dd4b1 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 20:53:48 -0700
Subject: [PATCH 11/24] - Removed "covr" from R 4_2 config

---
 .circleci/config.yml | 1 -
 1 file changed, 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 2c896ce9..d9a57cd3 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -36,7 +36,6 @@ jobs:
           command: |
             R -e 'install.packages(c("bs4Dash", "shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx",  "openxlsx2", "spelling", "colourpicker", "lifecycle"))'
-            R -e 'install.packages("covr")'
             R -e 'install.packages("reactable")
 
       - run:

From afd00eb7ccfd9460aa873f9d49cb357a0a340ab5 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 21:04:41 -0700
Subject: [PATCH 12/24] - Fixed config format

---
 .circleci/config.yml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index d9a57cd3..c11ffdd0 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -36,7 +36,8 @@ jobs:
           command: |
             R -e 'install.packages(c("bs4Dash", "shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx",  "openxlsx2", "spelling", "colourpicker", "lifecycle"))'
-            R -e 'install.packages("reactable")
+            R -e 'install.packages("covr")'
+            R -e 'install.packages("reactable")'
 
       - run:
           name: Session information and installed package versions

From acd9ebed94e751ea1d126099a6fe68d843bd381a Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 21:15:11 -0700
Subject: [PATCH 13/24] Install proper version of bs4Dash for R 4.2

---
 .circleci/config.yml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index c11ffdd0..30179da1 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -34,10 +34,11 @@ jobs:
       - run:
           name: Install R dependencies
           command: |
-            R -e 'install.packages(c("bs4Dash", "shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
+            R -e 'install.packages(c("shinyWidgets", "yaml", "DT", "writexl", "fresh", "miniUI", "shinyFeedback"))'
             R -e 'install.packages(c("canvasXpress", "waiter", "shinyjs", "openxlsx",  "openxlsx2", "spelling", "colourpicker", "lifecycle"))'
             R -e 'install.packages("covr")'
             R -e 'install.packages("reactable")'
+            R -e 'install.packages("bs4Dash", repos = "https://cran.rstudio.com/")'
 
       - run:
           name: Session information and installed package versions

From 927bcbe0c14510c2e34bd8a0cca2612b066e8c8a Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 21:44:04 -0700
Subject: [PATCH 14/24] Added debugging instructions to find failing tests in
 circleCI

---
 .circleci/config.yml | 53 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index 30179da1..b6334248 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -53,12 +53,65 @@ jobs:
 
       - run:
           name: Check package
+          environment:
+            # Print ALL lines of failing test output instead of last 13
+            _R_CHECK_TESTS_NLINES_: "0"
+            # Don't stop testthat at the first few failures
+            TESTTHAT_MAX_FAILS: "999"
+            # Make check output more informative
+            _R_CHECK_FORCE_SUGGESTS_: "true"
           command: |
             # Install suggested packages
             R -e 'install.packages("png")'
             # Perform package check
             R CMD check *tar.gz
 
+      - run:
+          name: Dump full test logs on failure
+          when: on_fail
+          command: |
+            echo "============================================"
+            echo "===== testthat.Rout.fail (FAILED TESTS) ====="
+            echo "============================================"
+            cat *.Rcheck/tests/testthat.Rout.fail 2>/dev/null || echo "(no testthat.Rout.fail found)"
+            echo ""
+            echo "============================================"
+            echo "===== testthat.Rout (FULL TEST OUTPUT) ====="
+            echo "============================================"
+            cat *.Rcheck/tests/testthat.Rout 2>/dev/null || echo "(no testthat.Rout found)"
+            echo ""
+            echo "============================================"
+            echo "===== spelling.Rout ========================"
+            echo "============================================"
+            cat *.Rcheck/tests/spelling.Rout 2>/dev/null || echo "(no spelling.Rout found)"
+            echo ""
+            echo "============================================"
+            echo "===== 00check.log =========================="
+            echo "============================================"
+            cat *.Rcheck/00check.log 2>/dev/null || echo "(no 00check.log found)"
+            echo ""
+            echo "============================================"
+            echo "===== 00install.out ========================"
+            echo "============================================"
+            cat *.Rcheck/00install.out 2>/dev/null || echo "(no 00install.out found)"
+            echo ""
+            echo "===== Package versions in check library ====="
+            R -e 'ip <- installed.packages()[, c("Package","Version")]; print(ip[ip[,"Package"] %in% c("ggplot2","shiny","bs4Dash","cli","rlang","testthat","vctrs","scales"), ], row.names = FALSE)'
+
+      - run:
+          name: Archive Rcheck directory
+          when: always
+          command: |
+            tar czf rcheck-logs.tar.gz *.Rcheck 2>/dev/null || true
+
+      - store_artifacts:
+          path: rcheck-logs.tar.gz
+          destination: rcheck-logs.tar.gz
+
+      - store_artifacts:
+          path: .
+          destination: workspace
+
 
   Build-for-rLATEST:
     docker:

From 6432bf5f5f968fd6f9d1648433e7bb98b14be2c5 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 22:13:13 -0700
Subject: [PATCH 15/24] - Updated ggplot required version

---
 DESCRIPTION | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b3d3084a..88455359 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -39,7 +39,7 @@ Suggests:
     assertthat,
     canvasXpress,
     colourpicker,
-    ggplot2,
+    ggplot2 (>= 3.5.0),
     knitr,
     lattice,
     miniUI,

From d85b1fe2a8542c6a25de65d2d43814c00c2be309 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 22:26:33 -0700
Subject: [PATCH 16/24] - Updated ggplot related unit tests to take care of old
 version

---
 DESCRIPTION                             |  2 +-
 tests/testthat/test_download_file.R     | 16 ++++++++++++----
 tests/testthat/test_downloadable_plot.R | 16 ++++++++++++----
 3 files changed, 25 insertions(+), 9 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 88455359..b3d3084a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -39,7 +39,7 @@ Suggests:
     assertthat,
     canvasXpress,
     colourpicker,
-    ggplot2 (>= 3.5.0),
+    ggplot2,
     knitr,
     lattice,
     miniUI,
diff --git a/tests/testthat/test_download_file.R b/tests/testthat/test_download_file.R
index c7020b15..635af14f 100644
--- a/tests/testthat/test_download_file.R
+++ b/tests/testthat/test_download_file.R
@@ -3,14 +3,22 @@ local_edition(3)
 
 # helper functions
 download_plot <- function() {
-    ggplot2::ggplot(data = mtcars, aes(x = wt, y = mpg)) +
+    plot <- ggplot2::ggplot(data = mtcars, aes(x = wt, y = mpg)) +
         geom_point(aes(color = cyl)) +
-        theme(legend.justification   = c(1, 1),
-              legend.position.inside = c(1, 1),
-              legend.title           = element_blank()) +
         ggtitle("GGPlot Example w/Hover") +
         xlab("wt") +
         ylab("mpg")
+    if (packageVersion("ggplot2") >= "3.5.0") {
+        plot <- plot +
+            theme(legend.justification   = c(1, 1),
+                  legend.position.inside = c(1, 1),
+                  legend.title           = element_blank())
+    } else {
+        plot <- plot +
+            theme(legend.justification = c(1, 1),
+                  legend.position      = c(1, 1),
+                  legend.title         = element_blank())
+    }
 }
 
 download_lattice_plot <- function() {
diff --git a/tests/testthat/test_downloadable_plot.R b/tests/testthat/test_downloadable_plot.R
index 82202f72..0730ab18 100644
--- a/tests/testthat/test_downloadable_plot.R
+++ b/tests/testthat/test_downloadable_plot.R
@@ -103,14 +103,22 @@ test_that("downloadablePlotUI invalid btn_valign", {
 
 
 download_plot <- function() {
-    ggplot2::ggplot(data = download_data(), aes(x = wt, y = mpg)) +
+    plot <- ggplot2::ggplot(data = mtcars, aes(x = wt, y = mpg)) +
         geom_point(aes(color = cyl)) +
-        theme(legend.justification   = c(1, 1),
-              legend.position.inside = c(1, 1),
-              legend.title           = element_blank()) +
         ggtitle("GGPlot Example w/Hover") +
         xlab("wt") +
         ylab("mpg")
+    if (packageVersion("ggplot2") >= "3.5.0") {
+        plot <- plot +
+            theme(legend.justification   = c(1, 1),
+                  legend.position.inside = c(1, 1),
+                  legend.title           = element_blank())
+    } else {
+        plot <- plot +
+            theme(legend.justification = c(1, 1),
+                  legend.position      = c(1, 1),
+                  legend.title         = element_blank())
+    }
 }
 
 download_data <- function() {

From 7592a8a6d5c0e9e95ed6986c105205109ac92cc8 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 8 Jul 2026 22:38:28 -0700
Subject: [PATCH 17/24] - Removed debugging instructions from circleci cofig
 file

---
 .circleci/config.yml | 52 --------------------------------------------
 1 file changed, 52 deletions(-)

diff --git a/.circleci/config.yml b/.circleci/config.yml
index b6334248..d0c5eda6 100644
--- a/.circleci/config.yml
+++ b/.circleci/config.yml
@@ -53,64 +53,12 @@ jobs:
 
       - run:
           name: Check package
-          environment:
-            # Print ALL lines of failing test output instead of last 13
-            _R_CHECK_TESTS_NLINES_: "0"
-            # Don't stop testthat at the first few failures
-            TESTTHAT_MAX_FAILS: "999"
-            # Make check output more informative
-            _R_CHECK_FORCE_SUGGESTS_: "true"
           command: |
             # Install suggested packages
             R -e 'install.packages("png")'
             # Perform package check
             R CMD check *tar.gz
 
-      - run:
-          name: Dump full test logs on failure
-          when: on_fail
-          command: |
-            echo "============================================"
-            echo "===== testthat.Rout.fail (FAILED TESTS) ====="
-            echo "============================================"
-            cat *.Rcheck/tests/testthat.Rout.fail 2>/dev/null || echo "(no testthat.Rout.fail found)"
-            echo ""
-            echo "============================================"
-            echo "===== testthat.Rout (FULL TEST OUTPUT) ====="
-            echo "============================================"
-            cat *.Rcheck/tests/testthat.Rout 2>/dev/null || echo "(no testthat.Rout found)"
-            echo ""
-            echo "============================================"
-            echo "===== spelling.Rout ========================"
-            echo "============================================"
-            cat *.Rcheck/tests/spelling.Rout 2>/dev/null || echo "(no spelling.Rout found)"
-            echo ""
-            echo "============================================"
-            echo "===== 00check.log =========================="
-            echo "============================================"
-            cat *.Rcheck/00check.log 2>/dev/null || echo "(no 00check.log found)"
-            echo ""
-            echo "============================================"
-            echo "===== 00install.out ========================"
-            echo "============================================"
-            cat *.Rcheck/00install.out 2>/dev/null || echo "(no 00install.out found)"
-            echo ""
-            echo "===== Package versions in check library ====="
-            R -e 'ip <- installed.packages()[, c("Package","Version")]; print(ip[ip[,"Package"] %in% c("ggplot2","shiny","bs4Dash","cli","rlang","testthat","vctrs","scales"), ], row.names = FALSE)'
-
-      - run:
-          name: Archive Rcheck directory
-          when: always
-          command: |
-            tar czf rcheck-logs.tar.gz *.Rcheck 2>/dev/null || true
-
-      - store_artifacts:
-          path: rcheck-logs.tar.gz
-          destination: rcheck-logs.tar.gz
-
-      - store_artifacts:
-          path: .
-          destination: workspace
 
 
   Build-for-rLATEST:

From 5ae843e690b53ab779589cd978c5d24a8b36d06e Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Wed, 15 Jul 2026 04:58:06 -0700
Subject: [PATCH 18/24] Added another table change observer and returning an
 actual and updated state only

---
 R/downloadableReactTable.R | 35 ++++++++++++++++++++++++++++-------
 1 file changed, 28 insertions(+), 7 deletions(-)

diff --git a/R/downloadableReactTable.R b/R/downloadableReactTable.R
index 6f88b9f8..6459f0a2 100644
--- a/R/downloadableReactTable.R
+++ b/R/downloadableReactTable.R
@@ -223,6 +223,10 @@ downloadableReactTable <- function(id,
                  } else {
                      table_react_params <- shiny::reactiveValues(table_data        = NULL,
                                                                  pre_selected_rows = NULL)
+                     downloadable_module_state <- shiny::reactiveVal(list(selected_rows = NULL, table_state = NULL))
+                     # Track data change
+                     is_stale <- shiny::reactiveVal(FALSE)
+
                      if (is.null(file_name_root)) {
                          logwarn("'file_name_root' parameter should not be NULL. Setting default value 'data_file'.", logger = logger)
                          file_name_root <- "data_file"
@@ -243,7 +247,10 @@ downloadableReactTable <- function(id,
                          pre_selected_rows <- NULL
                      }
 
-                     shiny::observe({
+                     shiny::observeEvent(table_data(), {
+                         is_stale(TRUE)
+                         downloadable_module_state(list(selected_rows = NULL, table_state = NULL))
+
                          if (!is.data.frame(table_data())) {
                              table_data <- shiny::reactiveVal(data.frame(table_data()))
                          }
@@ -256,7 +263,7 @@ downloadableReactTable <- function(id,
 
                          }
                          shiny::outputOptions(output, "displayButton", suspendWhenHidden = FALSE)
-                     })
+                     }, priority = 10)
 
                      shiny::observe({
                          table_react_params$pre_selected_rows <- NULL
@@ -351,14 +358,28 @@ downloadableReactTable <- function(id,
                          table_output
                     })
                  }
-                 shiny::reactive({
+                 shiny::observe({
                      table_state   <- reactable::getReactableState("reactTableOutputID")
-                     selected_rows <- NULL
-                     if (!is.null(table_state) && !is.null(table_state$selected) && is.data.frame(table_data())) {
-                         selected_rows <- table_data()[table_state$selected, ]
+                     if (is_stale()) {
+                         # If the state is NULL or empty, it means the browser just finished resetting.
+                         # We can turn off the stale flag.
+                         if (is.null(table_state) || is.null(table_state$selected)) {
+                             is_stale(FALSE)
+                         }
+                     } else {
+                         selected_rows <- NULL
+                         if (!is.null(table_state)) {
+                             if (!is.null(table_state$selected) && is.data.frame(table_data())) {
+                                 selected_rows <- table_data()[table_state$selected, ]
+                             }
+
+                             downloadable_module_state(list(selected_rows = selected_rows, table_state = table_state))
+
+                         }
                      }
-                     list(selected_rows = selected_rows, table_state = table_state)
                  })
+
+                 downloadable_module_state
             }
         )
 }

From b5b108e8cf077a6ed78ec7757407f15d60db6169 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 01:48:06 -0700
Subject: [PATCH 19/24] - defined the state variables

---
 R/downloadableReactTable.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/downloadableReactTable.R b/R/downloadableReactTable.R
index 6459f0a2..777162cb 100644
--- a/R/downloadableReactTable.R
+++ b/R/downloadableReactTable.R
@@ -217,15 +217,15 @@ downloadableReactTable <- function(id,
                                    logger             = NULL) {
         shiny::moduleServer(id,
              function(input, output, session) {
+                 downloadable_module_state <- shiny::reactiveVal(list(selected_rows = NULL, table_state = NULL))
+                 is_stale                  <- shiny::reactiveVal(FALSE)
+
                  if (is.null(table_data) || !is.function(table_data)) {
                      logerror("'table_data' parameter must be a function or reactive expression.", logger = logger)
                      output$reactTableOutputID <- reactable::renderReactable({ NULL })
                  } else {
                      table_react_params <- shiny::reactiveValues(table_data        = NULL,
                                                                  pre_selected_rows = NULL)
-                     downloadable_module_state <- shiny::reactiveVal(list(selected_rows = NULL, table_state = NULL))
-                     # Track data change
-                     is_stale <- shiny::reactiveVal(FALSE)
 
                      if (is.null(file_name_root)) {
                          logwarn("'file_name_root' parameter should not be NULL. Setting default value 'data_file'.", logger = logger)

From 2594eee4be0ddd884439ea2d8ade3b99b1525bdf Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 01:49:56 -0700
Subject: [PATCH 20/24] Avoid local stage install issue

---
 DESCRIPTION | 1 +
 1 file changed, 1 insertion(+)

diff --git a/DESCRIPTION b/DESCRIPTION
index b3d3084a..6ea0d20c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -52,3 +52,4 @@ Suggests:
     waiter
 VignetteBuilder: knitr
 Roxygen: list(markdown = TRUE)
+StagedInstall: no

From 509effcce26f25b8b49deefbf8324a32b6d5fca2 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 04:12:43 -0700
Subject: [PATCH 21/24] - update for init state

---
 R/downloadableReactTable.R | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/R/downloadableReactTable.R b/R/downloadableReactTable.R
index 777162cb..8cccf741 100644
--- a/R/downloadableReactTable.R
+++ b/R/downloadableReactTable.R
@@ -249,7 +249,7 @@ downloadableReactTable <- function(id,
 
                      shiny::observeEvent(table_data(), {
                          is_stale(TRUE)
-                         downloadable_module_state(list(selected_rows = NULL, table_state = NULL))
+                         #downloadable_module_state(list(selected_rows = "NULLLL", table_state = NULL))
 
                          if (!is.data.frame(table_data())) {
                              table_data <- shiny::reactiveVal(data.frame(table_data()))
@@ -358,23 +358,30 @@ downloadableReactTable <- function(id,
                          table_output
                     })
                  }
-                 shiny::observe({
+                 shiny::observe({#browser()
                      table_state   <- reactable::getReactableState("reactTableOutputID")
+                     selected_rows <- NULL
+
+                     # data is just re/set and new react state is not ready yet
                      if (is_stale()) {
+                         #is_stale(FALSE)
                          # If the state is NULL or empty, it means the browser just finished resetting.
                          # We can turn off the stale flag.
                          if (is.null(table_state) || is.null(table_state$selected)) {
                              is_stale(FALSE)
+                            if (!is.null(pre_selected_rows) && !is.null(pre_selected_rows()) && is.data.frame(table_data())) {
+                                selected_rows <- table_data()[pre_selected_rows(), ]
+                            }
                          }
-                     } else {
-                         selected_rows <- NULL
+
+                         downloadable_module_state(list(selected_rows = selected_rows, table_state = NULL))
+
+                     } else { # the table is rendered, get the state directly from react table
                          if (!is.null(table_state)) {
                              if (!is.null(table_state$selected) && is.data.frame(table_data())) {
                                  selected_rows <- table_data()[table_state$selected, ]
                              }
-
                              downloadable_module_state(list(selected_rows = selected_rows, table_state = table_state))
-
                          }
                      }
                  })

From 2b7cae565ebe4c6ca2270f8f83ef9105f0fadc96 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 07:25:31 -0700
Subject: [PATCH 22/24] Use table_react_params for selection fallback

---
 R/downloadableReactTable.R | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/R/downloadableReactTable.R b/R/downloadableReactTable.R
index 8cccf741..f9b10bac 100644
--- a/R/downloadableReactTable.R
+++ b/R/downloadableReactTable.R
@@ -249,7 +249,6 @@ downloadableReactTable <- function(id,
 
                      shiny::observeEvent(table_data(), {
                          is_stale(TRUE)
-                         #downloadable_module_state(list(selected_rows = "NULLLL", table_state = NULL))
 
                          if (!is.data.frame(table_data())) {
                              table_data <- shiny::reactiveVal(data.frame(table_data()))
@@ -358,19 +357,19 @@ downloadableReactTable <- function(id,
                          table_output
                     })
                  }
-                 shiny::observe({#browser()
+                 shiny::observe({
+
                      table_state   <- reactable::getReactableState("reactTableOutputID")
                      selected_rows <- NULL
 
                      # data is just re/set and new react state is not ready yet
                      if (is_stale()) {
-                         #is_stale(FALSE)
                          # If the state is NULL or empty, it means the browser just finished resetting.
                          # We can turn off the stale flag.
                          if (is.null(table_state) || is.null(table_state$selected)) {
                              is_stale(FALSE)
-                            if (!is.null(pre_selected_rows) && !is.null(pre_selected_rows()) && is.data.frame(table_data())) {
-                                selected_rows <- table_data()[pre_selected_rows(), ]
+                            if (!is.null(table_react_params) && !is.null(table_react_params$pre_selected_rows) && is.data.frame(table_data())) {
+                                selected_rows <- table_data()[table_react_params$pre_selected_rows, ]
                             }
                          }
 

From 02ca896f92188a371d1d3bfb7793c88cdf0e9adb Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 07:26:15 -0700
Subject: [PATCH 23/24] - Fixed unit tests

---
 .../testthat/test_downloadable_react_table.R  | 22 +++++++++++--------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/tests/testthat/test_downloadable_react_table.R b/tests/testthat/test_downloadable_react_table.R
index bfe2f217..54208286 100644
--- a/tests/testthat/test_downloadable_react_table.R
+++ b/tests/testthat/test_downloadable_react_table.R
@@ -408,19 +408,25 @@ test_that("downloadableReactTable - module return", {
    })
 
     local_mocked_bindings(
-        getReactableState = function(...) {
-         list(data            = get_mtcars_data(),
-              showSortable    = TRUE,
-              defaultSelected = c(2, 3),
-              selected        = c(2, 3))
-        },
+        getReactableState = function(...) NULL,
         .package = "reactable")
 
 
     testServer(
         downloadableReactTable,
-        args = list(table_data = get_mtcars_data),
+        args = list(
+            table_data        = get_mtcars_data,
+            selection_mode    = "multiple",
+            pre_selected_rows = reactive(c(2, 3))
+        ),
         expr = {
+            # Simulate two reactive ticks:
+            # Tick 1: table_data changes; reactable hasn't reported state yet
+            #         → module falls back to pre_selected_rows
+            # Tick 2: reactable state still NULL; assert fallback value survives
+            session$flushReact()
+            is_stale(TRUE)
+            session$flushReact()
             result <- session$returned()
             expect_equal(length(result), 2)
             expect_true(all(c("selected_rows", "table_state") %in% names(result)))
@@ -429,5 +435,3 @@ test_that("downloadableReactTable - module return", {
   })
 
 })
-
-

From 3664c388f2461c663fe975afcff545d590f65437 Mon Sep 17 00:00:00 2001
From: Mohammed Ali <mohammed@aggregate-genius.com>
Date: Thu, 16 Jul 2026 07:59:24 -0700
Subject: [PATCH 24/24] Added unit test to increase coverage

---
 .../testthat/test_downloadable_react_table.R  | 40 +++++++++++++++++++
 1 file changed, 40 insertions(+)

diff --git a/tests/testthat/test_downloadable_react_table.R b/tests/testthat/test_downloadable_react_table.R
index 54208286..c6a82d93 100644
--- a/tests/testthat/test_downloadable_react_table.R
+++ b/tests/testthat/test_downloadable_react_table.R
@@ -435,3 +435,43 @@ test_that("downloadableReactTable - module return", {
   })
 
 })
+
+
+test_that("downloadableReactTable - returns selected rows from reactable state", {
+    skip_if(getRversion() < "4.1.0", "Skipping due to lifecycle warnings in R < 4.1.0")
+
+    local_mocked_bindings(
+        getReactableState = function(...) {
+            list(showSortable = TRUE,
+                 selected     = c(2, 3))
+        },
+        .package = "reactable")
+
+    testServer(
+        downloadableReactTable,
+        args = list(
+            table_data     = get_mtcars_data,
+            selection_mode = "multiple"
+        ),
+        expr = {
+            # Tick 1: observeEvent(table_data) sets is_stale=TRUE.
+            #         Final observer runs, sees stale + selected non-NULL,
+            #         so it does NOT enter the reset branch and is_stale stays TRUE.
+            session$flushReact()
+
+            # Manually flip is_stale to FALSE to simulate the point in time
+            # after reactable has rendered and reported its state.
+            is_stale(FALSE)
+            session$flushReact()
+
+            result <- session$returned()
+
+            expect_equal(length(result), 2)
+            expect_true(all(c("selected_rows", "table_state") %in% names(result)))
+            expect_false(is.null(result$table_state))
+            expect_equal(result$table_state$selected, c(2, 3))
+            expect_equal(NROW(result$selected_rows), 2)
+            expect_true(all(c("Mazda RX4 Wag", "Datsun 710")
+                            %in% rownames(result$selected_rows)))
+        })
+})