Usando shiny 1.6.0 y bslib 0.3.0.

Este trabajo como se esperaba:

 library(shiny) ui <- navbarPage( title = "Minimal Example Issue", id = "tabs", header = conditionalPanel( condition = "input.tabs == 'tab_1'", HTML("Special tab 1") ), tabPanel("tab_1", "Hello"), tabPanel("tab_2", "Hi") ) server <- function(input, output) {} shinyApp(ui = ui, server = server)

Esto no es así, ya que la condición no se cumple en la selección de tab_1 :

 library(shiny) library(bslib) ui <- page_navbar( title = "Minimal Example Issue", id = "tabs", header = conditionalPanel( condition = "input.tabs == 'tab_1'", HTML("Special tab 1") ), nav("tab_1", "Hello"), nav("tab_2", "Hi") ) server <- function(input, output) {} shinyApp(ui = ui, server = server)

Me gustaría entender qué elemento JS ha reemplazado a input.tabs en el segundo ejemplo.