闪亮的 conditionalPanel() JS 条件不适用于 bslib答案

【问题标题】：shiny conditionalPanel() JS condition not working with bslib闪亮的 conditionalPanel() JS 条件不适用于 bslib
【发布时间】：2021-11-17 05:54:46
【问题描述】：

使用shiny 1.6.0 和bslib 0.3.0。

按预期工作：

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)

这不是因为选择 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)

我想了解第二个例子中的input.tabs是由哪个JS元素代替的。

【问题讨论】：

标签： javascript r shiny bslib

【解决方案1】：

将闪亮升级到 1.7.0（现在在 CRAN 上）修复它

【讨论】：