datatable(visible_data$my_dat, selection = 'single', filter = list(position = 'top', clear = TRUE),
options = list(stateSave = TRUE, pageLength = 20, autoWidth = TRUE,
searchCols = list(list(search = table_state$table_state$columns[[1]]$search$search), list(search = table_state$table_state$columns[[2]]$search$search), list(search = table_state$table_state$columns[[3]]$search$search),
list(search = table_state$table_state$columns[[4]]$search$search), list(search = table_state$table_state$columns[[5]]$search$search),
list(search = table_state$table_state$columns[[6]]$search$search), list(search = table_state$table_state$columns[[7]]$search$search),
list(search = table_state$table_state$columns[[8]]$search$search), list(search = table_state$table_state$columns[[9]]$search$search),
list(search = table_state$table_state$columns[[10]]$search$search), list(search = table_state$table_state$columns[[11]]$search$search),
list(search = table_state$table_state$columns[[12]]$search$search), list(search = table_state$table_state$columns[[13]]$search$search))))
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/63035f2e-32e5-44d7-a27f-d251136ea9e8%40googlegroups.com.