Fix for Shiny app dataTable zoom