如何解决根据R Shiny中的其他选择动态更新两个selectInput框
我正在开发一个闪亮的应用程序,并且有两个selectInput框。他们两个都使用相同的输入,我想根据对方的选择来更新输入框。
基本上我想删除一个输入框上所选变量,而另一个输入框的下拉列表中不可用。
columns
在上面的示例中,如果用户将选项A选择为“ V1”,则我想从v2可用的选项中删除A,反之亦然。我尝试执行以下操作,但未成功
vars <- c("A","B","C","D","E","F","G","H")
selectInput("v1",label = "Select Variable 1",choices = vars),selectInput("v2",label = "Select Variable 2",choices = vars)
解决方法
您可以通过使用每个输入过滤其他输入中的选项来实现此目的:
library(shiny)
my_vars <- c("A","B","C","D","E","F","G","H")
ui <- fluidPage(
selectInput("v1",label = "Select Variable 1",choices = my_vars,multiple = TRUE),selectInput("v2",label = "Select Variable 2",multiple = TRUE)
)
server <- function(input,output,session){
observe({
if(!is.null(input$v2))
updateSelectInput(session,"v1",choices = my_vars[!(my_vars %in% input$v2)],selected = isolate(input$v1) )
})
observe({
if(!is.null(input$v1))
updateSelectInput(session,"v2",choices = my_vars[!(my_vars %in% input$v1)],selected = isolate(input$v2) )
})
}
shinyApp(ui = ui,server = server)
请注意使用isolate
以避免在选择之间关闭列表
如果您不希望有多个选择,请使用不同的选择初始化每个输入:
ui <- fluidPage(
selectInput("v1",selected = "A"),selected = "B")
)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。