更新多个相关的 selectizeInput() 控制通过这些输入选择过滤的反应数据集

如何解决更新多个相关的 selectizeInput() 控制通过这些输入选择过滤的反应数据集

我有一个简单的闪亮应用程序，它在我启动时加载数据集。该应用程序具有不同的 selectizeinput()，用户可以在其中选择一个或多个不同变量的值，他/她可以使用这些值过滤数据集。在以下可重现的示例中，我在过滤时在服务器中创建的反应性数据集通过表格显示：

library(dplyr)
library(shiny)

dataset <- data.frame("Letters" = c("A","B","C","A","C"),"Numbers" = c(1,2,3,4,5,6,7,8,9,1,9),"LettersNumbers" = c("G5","G5","F7","E9","E9"))

ui <- fluidPage(

br(),fluidRow(
    column(width = 4,selectizeInput(inputId = "letters",label = "Letters",choices = unique(dataset$Letters),multiple = TRUE),br(),selectizeInput(inputId = "numbers",label = "Numbers",choices = unique(dataset$Numbers),selectizeInput(inputId = "lettersnumbers",label = "Letters & Numbers",choices = unique(dataset$LettersNumbers),multiple = TRUE)

    ),column(width = 4,tableOutput(outputId = "table")
    ),textoutput(outputId = "text")
    )
  )
  
)

server <- function(input,output,session) {
  
  # Filter the initial dataset
  dataset_filtered <- reactive({

    dataset_filtered <- dataset
    
    if (!is.null(input$letters)) {
        
      dataset_filtered <- dataset_filtered %>% 
        filter(Letters %in% c(input$letters))

    }
    
    if (!is.null(input$numbers)) {
      
      dataset_filtered <- dataset_filtered %>% 
        filter(Numbers %in% c(input$numbers))
      
    }
    
    if (!is.null(input$lettersnumbers)) {
      
      dataset_filtered <- dataset_filtered %>% 
        filter(LettersNumbers %in% c(input$lettersnumbers))
      
    }
    
    return(dataset_filtered)
    
  })
  
  # display filtered table
  output$table <- renderTable({
    
    dataset_filtered()
    
  })
  
  # display warning message
  output$text <- renderText({
    
    if (nrow(dataset_filtered()) == 0) {
      
      print("No combinations available")
      
    }
    
  })
  
}

shinyApp(ui = ui,server = server)

问题：这三个变量具有完全相同的重要性。现在让我们举一个过滤示例：假设我选择值 A 和 B。从表中可以看出，在数字列中，我只有从1到8的值，而不是9。现在，在第二个 selectizeinput() (Numbers) 中，我选择了 9，正如预期的那样，表格有 0 行并显示警告消息。 但是，如果从同一个 selectizeinput() 中同时选择 9 和 1，则会显示一些值，因为过滤器考虑了 1 strong> 在创建的反应向量中可用，并为此过滤。

在我看来，对该界面进行编程的最佳方式是在做出选择时响应性地更新每个 selectizeinput()。换句话说，如果我从第一个输入中选择 A 和 B，则 9 在第二个输入中根本不应该可用。 这应该对我拥有的每个输入都有效，没有比另一个更重要的输入。

我尝试了多种解决方案，也使用 updateSelectizeinput()，但似乎没有任何效果。你有什么建议吗？谢谢！

解决方法

updateSelectizeInput() 和 observeEvent() 的组合应该可以满足您的要求。试试这个：

dataset <- data.frame("Letters" = c("A","B","C","A","C"),"Numbers" = c(1,2,3,4,5,6,7,8,9,1,9),"LettersNumbers" = c("G5","G5","F7","E9","E9"))

ui <- fluidPage(
  
  br(),fluidRow(
    column(width = 4,selectizeInput(inputId = "letters",label = "Letters",choices = unique(dataset$Letters),multiple = TRUE),br(),selectizeInput(inputId = "numbers",label = "Numbers",choices = unique(dataset$Numbers),selectizeInput(inputId = "lettersnumbers",label = "Letters & Numbers",choices = unique(dataset$LettersNumbers),multiple = TRUE)
           
    ),column(width = 4,tableOutput(outputId = "table")
    ),textOutput(outputId = "text")
    )
  )
  
)

server <- function(input,output,session) {
  
  # Filter the initial dataset
  dataset_filtered <- reactive({
    
    dataset_filtered <- dataset
    
    if (is.null(input$letters) & is.null(input$numbers) & is.null(input$lettersnumbers)) {
      dataset_filtered <- dataset
      updateSelectizeInput(session,inputId="letters",choices=dataset$Letters,selected=NULL)
      updateSelectizeInput(session,inputId="numbers",choices=dataset$Numbers,inputId="lettersnumbers",choices=dataset$LettersNumbers,selected=NULL)
    }else{
      if (!is.null(input$letters)) {
        
        dataset_filtered <- dataset_filtered %>% 
          filter(Letters %in% c(input$letters))
        
      } 
      
      if (!is.null(input$numbers)) {
        
        dataset_filtered <- dataset_filtered %>% 
          filter(Numbers %in% c(input$numbers))
        
      } 
      
      if (!is.null(input$lettersnumbers)) {
        
        dataset_filtered <- dataset_filtered %>% 
          filter(LettersNumbers %in% c(input$lettersnumbers))
        
      }
    }
    
    return(dataset_filtered)
    
  })
  
  observeEvent(input$letters,{
    updateSelectizeInput(session,choices=dataset_filtered()$LettersNumbers,selected=NULL)
    updateSelectizeInput(session,choices=dataset_filtered()$Numbers,selected=NULL)
  })
  
  observeEvent(input$numbers,choices=dataset_filtered()$Letters,selected=NULL)
  })
  
  observeEvent(input$lettersnumbers,selected=NULL)
  })
  
  # Display filtered table
  output$table <- renderTable({
    
    dataset_filtered()
    
  })
  
  # Display warning message
  output$text <- renderText({
    
    if (nrow(dataset_filtered()) == 0) {
      
      print("No combinations available")
      
    }
    
  })
  
}

shinyApp(ui = ui,server = server)