Creating a Flexible Input Function in R: Simplifying Data Selection with Shiny and NSE