条件输入列表闪亮r

Question

想象一下，我有一个下面的例子，我从三个数字中选择一个，然后有一个选择列表，我选择的数字加上1、2和3（如果是1），或者我的数字加上10、11或12。除此以外。

我在尝试将input.sel用作变量时遇到麻烦，有人可以解释为什么在这种情况下还可以，但不能将其用作变量吗？

conditionalPanel("input.sidebarmenu === 'dashboard8'",
                        selectInput("sel", "Select:", c(1,2,3), selected = "1"),

    conditionalPanel(
         condition = "input.sel == '1'",
         selectInput("Role1", "Role:", c(input.sel+10,input.sel+11,input.sel+12 ), selected = "All")),
    conditionalPanel(
         condition = "input.sel != '1'",
         selectInput("Role2", "Role:", c(input.sel+1,input.sel+2,input.sel+3) , selected = "All")                            
),

Answer 1

您可以使用类似：

在UI中

selectInput("Role1", "Role:", "", selected = ""))

和在服务器中

observe({
updateSelectInput(session,"Role1",choices=input$sel+10:12,selected= input$sel+10:12))
})

或更好的observeEvent(input$sel,...)仅在sel更改时更改输入