我正在尝试使用conditionalPanel
包中的shiny
函数构建一个 Shiny 的应用程序。该条件应该用JavaScript
编写,但我希望能够使用以下条件(用R编写)
"TP53" %in% unlist(input$ModelVariables)
文档说明:
我一点都不熟悉
JavaScript
。我已经尝试过input.ModelVariables == 'TP53'
,但是当input.ModelVariables
的长度大于1时,此方法不起作用。我的带有
sidebarPanel
的conditionalPanel
片段如下 checkboxGroupInput("ModelVariables",
label = h3("Which variables to view?"),
choices = list( "cohort",
"stage",
"therapy",
"TP53",
"MDM2" ),
selected = list("TP53")
),
conditionalPanel(condition = "'TP53' in unlist(input.ModelVariables)",
checkboxGroupInput("ModelVariablesTP53",
label = h3("Which mutations to view?"),
choices = list( "Missense",
"Other",
"WILD"),
selected = list("Missense",
"Other",
"WILD")
)
最佳答案
根据this answer,这种情况应该有效(对我也有效)condition = "input.ModelVariables.indexOf('TP53') > -1"