Export xlsx after filtering data table in shiny

Question

I try to export a data table that i have filtered in a dataTableOutput. but i can\'t get the modifyed data table.

in server.R

 function(input, output) {