Consider The following R code, I am trying to filter a dataframe by the current state of a sunburst plot in a shiny structure. This is my try: