Condition Filter in dplyr based on Shiny input

Question

I\'m creating a reporting tool for an online market. I want to add a checkbox, \"Coupon\", where only observations that have a positive value in the Coupon field are selecte

Answer 1

If you want to stick with dplyr you can include an if else statement in your filtering statement for Orders like this:

Orders %>% 
filter(Region %in% Region_Select(), Community.Type %in% Type_Select() %>% 
{ if (input$coupon == TRUE) filter(., Coupon > 1) else filter(., Coupon > -1 | is.na(Coupon)) }

The first filter is for the items you want to filter regardless of the Coupon checkbox. Inside the curly brackets is an if statement that will filter as you have specified if the checkbox is marked and if not, it will keep everything if I understand the possible outcomes.

I use this type of setup for creating interactive tables in a shiny app.