Update shinyTable.R