如何使datatable反应性?

I have an issue while trying to make datatable reactive within a shiny app (from DT package). Here is my reproducible example:I have an issue while trying to make datatable