Shiny 帶矢量的條件輸入面板

Question

我希望在 shiny 中創建一個條件面板，如果用戶從列表中選擇的輸入（即 selectInput 函數）屬於另一個向量，該面板將變為活動狀態。

我知道條件面板中的條件是 javascript 元素，但我無法使其工作。

有人可以幫忙嗎？

這是正在檢查的代碼的 UI 部分：

legs1 <- c("HOUSE","VILLA","ATTICO")

selectInput("strategy", "Strategy:", choices = df[,6]),

conditionalPanel(
           
          condition = 'input.strategy && input.strategy.indexOf("legs1") > -1',
                              
          textInput("Leg1", "Leg1",value = ""),
          textInput("Leg2","Leg2", value =""),
          
          ),

Answer 1

如果您不必從條件內訪問向量，它應該通過使用

condition = "input.strategy && ['HOUSE', 'VILLA', 'ATTICO'].indexOf(input.strategy) > -1"