Using Shiny's eventReactive Function and .data[[]] Pronoun to Create Dynamic Filters Based on User Input