r-javascript条件包含闪亮中的for conditionalpanel

Question

我正在开发一个Shiny应用程序，如果条件为TRUE，我想添加一个选项卡面板。我使用条件面板函数，要测试的条件是"；产品"；从ui输入包含"；C"；。

如果从第一个选项卡点击C；第二标签"；未示出。

我认为问题在于条件面板中的JS条件。

如果你有任何可行的解决方案(不一定基于条件面板(，我将感谢你的帮助和支持。路易吉

下面是我的代表

library(shiny)
library(shinydashboard)
library(shinyWidgets)
library(reprex)
tab_input <- dashboardPage(
dashboardHeader(title = "Value boxes", disable = TRUE),
dashboardSidebar(disable = TRUE),
dashboardBody(
fluidRow(
box(
checkboxGroupButtons(
inputId = "products", label = tags$h1("Select products"), 
choices = c("A", "B", "C"),
checkIcon = list(yes = icon("ok", lib = "glyphicon"), no = icon("remove", lib = "glyphicon"))
)
)
)
)
)

ui <- navbarPage("my APP", 
tabPanel("first tab",
tab_input),

conditionalPanel(
condition = "input.products.contains('C')",
tabPanel("second_tab",
dashboardPage(
dashboardHeader(title = "Value boxes", disable = TRUE),
dashboardSidebar(disable = TRUE),
dashboardBody(

)
)
)
)
)
server <- function(input, output, session) {

}
shinyApp(ui, server)

Answer 1

尝试

condition = "input.products.indexOf('C') > -1"