我正在尝试使用conditionalPanel包中的shiny函数构建一个 Shiny 的应用程序。该条件应该用JavaScript编写,但我希望能够使用以下条件(用R编写)

"TP53" %in% unlist(input$ModelVariables)

文档说明:



我一点都不熟悉JavaScript。我已经尝试过input.ModelVariables == 'TP53',但是当input.ModelVariables的长度大于1时,此方法不起作用。

我的带有sidebarPanelconditionalPanel片段如下
                    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"

07-26 03:46