Server-side tab select

[ivokwee]

Hi John. I cooked up a server-side selectBigTab() function (not unlike updateTabsetPanel(...,selected=) ) to navigate to a certain tabpanel using server-side R. Can you check and see how to put it correctly in the codebase? Thanks a 1e6.

R code:

selectBigTab <- function(session, selected) {
  shiny:::validate_session_object(session)
  message <- shiny:::dropNulls(list(value = selected))
  session$sendCustomMessage("select-tab", message)
}

JS code:

Shiny.addCustomMessageHandler('select-tab', (msg) => {
    console.log('msg.value' + msg.value)
    $(`.tab-trigger[data-target=${msg.value}]`).trigger('click');
});

[ivokwee]

It would also be good that the parent menu item opens up if the selected item is a child in a tab menu.

[ivokwee]

example app here https://gist.github.com/ivokwee/97f38f87a6ff65566d3b944eccefdf5a