R - 閃亮的條件輸入

Question

我想獲得依賴於以前的輸入的輸入選擇。

require(shiny) 
require(dplyr) 

dat <- data.frame(id1 = c(rep("A",5),rep("B",5)), 
     id2 = c(rep("C",3),rep("D",3),rep("E",4)), 
     id3 = c(rep("F",2),rep("G",3),rep("H",5)), stringsAsFactors=FALSE) 


ui <- shinyUI(fluidPage(
    sidebarPanel(
    selectInput('id1', 'ID1', choices = unique(dat$id1)), 
    selectInput("id2", "ID2", choices = unique(dat$id2)), 
    selectInput("id3", "ID3", choices = unique(dat$id3)) 
    ) 
) 
) 


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

observeEvent(
      { 
      input$id1 
      },{ 
      input$id2 
      temp <- dat %>% filter(id1%in%input$id1) 
      updateSelectInput(session,"id2",choices = unique(temp$id2)) 
      } 
     ) 
} 

shinyApp(ui = ui, server = server) 

這適用於輸入1和2，但是如果我添加其他輸入到observeEvent，應用程序chrashes。例如：

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

observeEvent(
       { 
       input$id1 
       },{ 
       input$id2 
       temp <- dat %>% filter(id1%in%input$id1) 
       updateSelectInput(session,"id2",choices = unique(temp$id2)) 
       },{ 
       input$id3 
       temp <- dat %>% filter(id1%in%input$id1 & id2%in%input$id2) 
       updateSelectInput(session,"id3",choices = unique(temp$id3)) 
       } 
    ) 
} 

如何將其他輸入傳遞給observeEvent？

Answer 1

更新：我找到了問題的解決方案。我將輸入包裝在一個reactive函數中，分割輸出並將其傳遞給相應的observeEvent函數。

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


change <- reactive({ 
    unlist(strsplit(paste(c(input$id1,input$id2,input$id3),collapse="|"),"|",fixed=TRUE)) 

    }) 

observeEvent(input$id1,{ 
        temp <- dat %>% filter(id1 %in% change()[1]) 
        updateSelectInput(session,"id2",choices = unique(temp$id2)) 
        } 
       ) 

observeEvent(input$id2,{ 
        temp <- dat %>% filter(id1 %in% change()[1] & id2 %in% change()[2]) 
        updateSelectInput(session,"id3",choices = unique(temp$id3)) 
        } 
       )   
    }