Skip to content

[WIP] Update TealAppDriver to improve Sys.sleep control and performance analysis #1654

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
Copilot wants to merge 2 commits into from
Closed

[WIP] Update TealAppDriver to improve Sys.sleep control and performance analysis #1654

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
bac6048
Initial plan
Copilot Dec 2, 2025
6d3fb97
Add configurable sleep_time parameter to set_active_ns function
Copilot Dec 2, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions R/TealAppDriver.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -572,7 +572,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
length(wrapper_id) > 0 &&
!(length(wrapper_id) == 1 && (wrapper_id == "" || is.na(wrapper_id)))
},
set_active_ns = function() {
set_active_ns = function(sleep_time = 0.5) {
# Although wait_for_idle() is called before set_active_ns(), it only ensures Shiny is not processing.
# wait_for_page_stability() is needed here to ensure the DOM/UI is fully rendered and stable
# before trying to extract the namespace.
Expand Down Expand Up @@ -602,7 +602,7 @@ TealAppDriver <- R6::R6Class( # nolint: object_name.
# get_attr returns character(0) when no elements found, or NA_character_ for missing attributes
if (!private$is_valid_wrapper_id(active_wrapper_id)) {
# Try one more time after a short wait - the page might still be loading
Sys.sleep(0.5)
Sys.sleep(sleep_time)
active_wrapper_id <- private$extract_wrapper_id(
".teal-modules-tree li a.module-button[href*='-wrapper']:not([href='#'])"
)
Expand Down