context options are not used inside app server

[pawelru]

Please have a look at the following example:

withr::with_options(
    list(test_option = 1),
    {
        print("outside:")
        print(getOption("test_option"))
        app <- shiny::shinyApp(
            ui = shiny::fluidPage({
                print("inside ui")
                print(getOption("test_option"))
                shiny::tags$p("hello")
            }),
            server = function(input, output) {
                print("inside srv")
                print(getOption("test_option"))
            }
        )
        app_driver <- shinytest2::AppDriver$new(app)
        app_logs <- app_driver$get_logs()
        print(app_logs)
        app_driver$stop()
    }
)
#> [1] "outside:"
#> [1] 1
#> [1] "inside ui"
#> [1] 1
#> {shinytest2} R  info   15:07:32.84 Start AppDriver initialization
#> {shinytest2} R  info   15:07:32.87 Starting Shiny app
#> {shinytest2} R  info   15:07:33.31 Creating new ChromoteSession
#> {shinytest2} R  info   15:07:33.80 Navigating to Shiny app
#> {shinytest2} R  info   15:07:33.86 Injecting shiny-tracer.js
#> {chromote}   JS info   15:07:33.87 shinytest2; jQuery not found
#> {chromote}   JS info   15:07:33.87 shinytest2; Loaded
#> {shinytest2} R  info   15:07:33.87 Waiting for Shiny to become ready
#> {chromote}   JS info   15:07:33.92 shinytest2; jQuery found
#> {chromote}   JS info   15:07:33.92 shinytest2; Waiting for shiny session to connect
#> {chromote}   JS info   15:07:33.93 shinytest2; Connected
#> {shinytest2} R  info   15:07:33.98 Waiting for Shiny to become idle for 200ms within 15000ms
#> {chromote}   JS info   15:07:33.98 shinytest2; Waiting for Shiny to be stable
#> {chromote}   JS info   15:07:34.18 shinytest2; Shiny has been idle for 200ms
#> {shinytest2} R  info   15:07:34.18 Shiny app started
#> {shiny}      R  stderr ----------- Loading required package: shiny
#> {shiny}      R  stderr ----------- Running application in test mode.
#> {shiny}      R  stderr ----------- 
#> {shiny}      R  stderr ----------- Listening on http://127.0.0.1:7453
#> {shiny}      R  stdout ----------- [1] "inside srv"
#> {shiny}      R  stdout ----------- NULL

^{Created on 2024-03-22 with reprex v2.1.0}

In particular this:

#> {shiny}      R  stdout ----------- [1] "inside srv"
#> {shiny}      R  stdout ----------- NULL

From the inside of the app server, the pre-set option is not found.

I think I managed to find an answer, it's to pass options explicitly: app_driver <- shinytest2::AppDriver$new(app, options = options()).

Shouldn't it be a default behaviour? With options argument being additional overwrites?

This is important because some of the logic in my apps depends on the option value.