创建通用函数，从数据框中的选定列列表生成新对象

I'm working on a simple ShinyApp that would enable end-users to interrogate the data with use of various filters. Some of the filters correspond to unique values in data frame columns which are created using the code corresponding to the example below:I'm working on a simple ShinyApp that would ena