Фильтр Dplyr, выберите вход, с выбором всех условий для Shiny

Question

У меня есть каждое уникальное значение в столбце рынка, сохраненное в переменную, которая сохраняется в виде параметров раскрывающегося меню. И когда зритель выбирает рынок на блестящем рынке, он / она увидит данные, отфильтрованные по выбранному рынку. Я пытаюсь включить пустую опцию в мое выражение dplyr, чтобы позволить зрителю увидеть весь набор данных без какого-либо фильтра по рынку. Однако, как я создавал свое блестящее приложение, мне нужно выбрать рынок, чтобы оно работало должным образом.

Мне любопытно, есть ли более простой способ добавить пустую опцию, поэтому, если зритель вообще не хочет фильтровать по рынку, он будет показывать весь df?

Код ниже показывает, что у меня есть.

market_choices <- c("north","south","east","west")

selectInput(inputId = "mkt", 
            label = "Select Market", 
            choices = market_choices, 
            selected = "east"))

  test <- reactive({df %>% filter(Market == input$mkt)})

Answer 1

Вы можете включить параметр all в market_choices, а затем поместить выражение фильтра в условный оператор:

market_choices <- c("north","south","east","west", 'all')
...
test <- reactive({if(input$mkt == 'all') {
                      df
                  } else {
                      df %>% filter(Market == input$mkt)
                  }})