Skip to content

Conversation

@gadenbuie
Copy link
Member

@gadenbuie gadenbuie commented Nov 13, 2023

Adds a new test suite for the shiny preset dashboard styles.

This test takes many screenshot but only on MacOS with R-release. I named the screenshot files as helpfully as possible and modified the platform variant to use mac-release, so that the screenshots are fluid across R versions.

@gadenbuie gadenbuie self-assigned this Nov 13, 2023
Co-authored-by: Carson Sievert <[email protected]>
Comment on lines 56 to 59
p <- chrm$Page$navigate(url, wait_ = FALSE)$
then(function(...) chrm$Page$loadEventFired(wait_ = FALSE))$
then(function(...) chrm$Runtime$evaluate(shinytest2_js, wait_ = FALSE))$
then(function(...) app$wait_for_idle())
Copy link
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Might need to set up the load event as a promise, chaining off that action, rather than chaining from the navigate call. See rstudio/chromote#102

Suggested change
p <- chrm$Page$navigate(url, wait_ = FALSE)$
then(function(...) chrm$Page$loadEventFired(wait_ = FALSE))$
then(function(...) chrm$Runtime$evaluate(shinytest2_js, wait_ = FALSE))$
then(function(...) app$wait_for_idle())
p <- chrm$Page$loadEventFired(wait_ = FALSE)$
then(function(...) chrm$Runtime$evaluate(shinytest2_js, wait_ = FALSE))$
then(function(...) app$wait_for_idle())
chrm$Page$navigate(url, wait_ = FALSE)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment

Labels

None yet

Projects

None yet

Development

Successfully merging this pull request may close these issues.

2 participants