条件输入列表闪亮r

时间:2016-05-25 13:02:26

标签: r shiny

想象一下,我有以下示例,其中我选择三个数字中的一个,而不是我有一个选择列表,我选择的数字加上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")                            
),

1 个答案:

答案 0 :(得分:0)

您可以使用以下内容:

在UI中

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

并在服务器

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

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