Action links and updateTabsetPanel/updateNavbarPage with nested tabsets

[geoffrey.russell]

I have an issue trying to position to a specific tab when using nested tabs. See following code.
I can position to a specific top level menu ... and to the first item in a tabset on a specific menu, but can't position to anything below that. Do I need to 'nest' calls in some way ?

Many thanks,

library(shiny)
ui <- function(request) {
  fluidPage(
  navbarPage(bookmarkButton(label=""),id="navpage",
     navbarMenu("MENU1",
      tabPanel("Menu1Row1a",value="m1r1", fluidRow(column(10, markdown("menu1 row 1")))),
      tabPanel("Menu1Row2a",value="m1r2", fluidRow(column(10, markdown("menu1 row 2"))))
     ),
     navbarMenu("MENU2",
        tabPanel("m2panel",value="m2panel",
          tabsetPanel(id="tabouter",
            tabPanel("M2OUTER1",value="m2t1",
              tabsetPanel(id="tabinner",
                tabPanel("M2Inner1",value="m2tabinner1", fluidRow( column(10, markdown("MENU2 Inner 1")))),
                tabPanel("M2Inner2",value="m2tabinner2", fluidRow( column(10, markdown("MENU2 Inner 2"))))
              ),
            ),
            tabPanel("M2OUTER2",value="m2t2",
                actionLink("level1","TEST LINKLevel1"), " ", 
                actionLink("outer","TEST LINKOuter"), " ",
                actionLink("outer2","TEST LINKOuter2"), " ",
                actionLink("inner","TEST LINKInner")
            )
          ) 
        )
      )
    )
  )
}
server <- function(ui,input, output,session) { 
  observeEvent(input$level1,{ updateNavbarPage(session=session,inputId="navpage",selected="m1r1") })
  observeEvent(input$outer,{ updateNavbarPage(session=session,inputId="tabouter",selected="m2t1") })
  observeEvent(input$outer2,{ updateTabsetPanel(session=session,inputId="tabouter",selected="m2t2") })
  observeEvent(input$inner,{ updateTabsetPanel(session=session,inputId="tabinner",selected="m2tabinner1") })
}
shinyApp(ui = ui, server = server,enableBookmarking = "url")