Question

我想要两个selectInput闪亮。第一个选择为默认值“ A”。我希望第二个输入值基于第一个输入的值成为默认值。即。如果第一个选择为A，则第二个的默认值为'LOW'；如果第一个选择为C或D，则第二个的默认值为'HIGH'。我需要将第二个输入更改为任何内容。

我目前正在使用带有uiOutput的selectInput将其链接在一起，如我的代码所示。当前，即使选择C或D，第二个值的默认值始终为'LOW'。我希望能够选择C，并将第二个选择的值默认为'HIGH'

我的代码：

df=data.frame(expand.grid(col1=LETTERS[1:4],col2=c('LOW','MEDIUM','HIGH')))

ui = fluidPage(
  column(4,
         selectInput('d1','Drop 1',
                     choices = sort(unique(df$col1)),
                     selected = sort(df$col1)[1]),
         uiOutput("secondSelection")
  )
)

server <- function(input, output, session) {
  output$secondSelection = renderUI({
    selectInput("User", "Value Dependent on Drop 1:", 
                choices = as.character(df[df$col1==input$d1,"col2"]))
  }) 
}

shinyApp(ui, server)

Answer 1

我找到了一个名为updateselectinput的函数，并添加了它来解决问题

df=data.frame(expand.grid(col1=LETTERS[1:4],col2=c('LOW','MEDIUM','HIGH')))

ui = fluidPage(
  column(4,
         selectInput('d1','Drop 1',
                     choices = sort(unique(df$col1)),
                     selected = sort(df$col1)[1]),
         selectInput('d2','Drop 2',
                     choices = sort(unique(df$col2))
                     )
  )
)

server <- function(input, output, session) {

  observe({
    x = input$d1

    if(x=='A'){
      updateSelectInput(session,'d2',
                        choices = sort(unique(df$col2)),
                        selected = 'LOW')
    }else if(x=='C' || x=='D'){
      updateSelectInput(session,'d2',
                        choices = sort(unique(df$col2)),
                        selected = 'HIGH')
    }else{
      updateSelectInput(session,'d2',
                        choices = sort(unique(df$col2)),
                        selected = 'MEDIUM')
    }

  })

}

shinyApp(ui, server)

根据闪亮的R

1 个答案: