ユーザーは「すべて」を選択し、フィルタには何も渡されません。

Question

私はドロップダウンリストを含む光沢のあるアプリを作成しています。ユーザーにはいくつかのオプションがあります。これらは、次に示すようにフィルタで使用されます。

filteredData <- reactive({ 

data %>% 
    filter(Month >= input$months[1], 
     Month <= input$months[2], 
     Location.ID == input$loc, 
     ) 
}) 

入力$ locに関連付けられたドロップダウンに「すべて」を追加して、フィルタに何も渡したくないとします。

フィルタに何を渡す必要があるかわからないので、何もしません。私はNULLを試しましたが、うまくいかないようです。

Answer 1

filterの機能を2つに分けることができます。

filteredData <- reactive({ 
    DF <- data %>% 
     filter(Month >= input$months[1], 
      Month <= input$months[2]) 
    if(input$loc == "All") { 
     DF 
    } else { 
     DF %>% filter(Location.ID == input$loc) 
    } 
})