nav_select for inserted panels

[tai-mi]

Describe the problem

It seems like I am not able to use nav_select to select nav_panel's that I have inserted (only ones that were written into the ui)?

library(shiny)
library(bslib)

ui <- page_navbar(
    title='temp', id='page',
    nav_panel(title='login', tags$h3('login'), actionButton('login','Login'))
)

server <- function(input, output) {
    observe({
        nav_insert(id='page', target='login', nav_panel(
            title='page 1', value='pg1', fluidPage(
            tags$h3('Page 1'),
            actionButton('next_button', 'Back (login)'),
            actionButton('back_button', 'Next (page 2)'))
        ))
        nav_insert(id='page', target='pg1', nav_panel(
            title='page 2', value='pg2', fluidPage(
            tags$h3('Page 2'))
        ))
        # nav_remove(id='page', target='login')
    }) |> bindEvent(input$login)
    
    observe({
        nav_select(id='page', selected='pg2') # this doesn't work
    }) |> bindEvent(input$back_button)
    observe({
        nav_select(id='page', selected='login') # this works
    }) |> bindEvent(input$next_button)
}

# Run the application 
shinyApp(ui = ui, server = server)

Session Info

R version 4.3.2 (2023-10-31 ucrt)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 11 x64 (build 22631)
Matrix products: default
locale:

[1] LC_COLLATE=English_United States.utf8

[2] LC_CTYPE=English_United States.utf8

[3] LC_MONETARY=English_United States.utf8

[4] LC_NUMERIC=C

[5] LC_TIME=English_United States.utf8
time zone: America/Los_Angeles

tzcode source: internal
attached base packages:

[1] stats     graphics  grDevices utils     datasets  methods

[7] base
other attached packages:

[1] bslib_0.6.1.9001 shiny_1.7.5.1
loaded via a namespace (and not attached):

[1] vctrs_0.6.4       cli_3.6.2         rlang_1.1.3

[4] promises_1.2.1    jsonlite_1.8.8    xtable_1.8-4

[7] glue_1.7.0        htmltools_0.5.7   httpuv_1.6.12

[10] sass_0.4.8        rsconnect_1.1.1   fansi_1.0.5

[13] jquerylib_0.1.4   tibble_3.2.1      ellipsis_0.3.2

[16] fastmap_1.1.1     lifecycle_1.0.4   memoise_2.0.1

[19] compiler_4.3.2    fs_1.6.3          pkgconfig_2.0.3

[22] Rcpp_1.0.11       rstudioapi_0.15.0 later_1.3.1

[25] digest_0.6.34     R6_2.5.1          utf8_1.2.4

[28] pillar_1.9.0      magrittr_2.0.3    tools_4.3.2

[31] withr_2.5.2       mime_0.12         cachem_1.0.8