Hi,
I just implemented this in the development version of shiny:
https://github.com/rstudio/shiny Please test it if you can. Thanks!
# bFilter=0 or FALSE will turn off all the search boxes:
runApp(list(
ui = fluidPage(
dataTableOutput('tab1')
),
server = function(input, output) {
output$tab1 = renderDataTable(iris, options = list(bFilter=FALSE))
}
))
# and you can also selectively disable search boxes for individual columns
runApp(list(
ui = fluidPage(
dataTableOutput('tab1')
),
server = function(input, output) {
output$tab1 = renderDataTable(iris, options = list(aoColumns =
list(list(bSearchable=0), list(bSearchable=1), list(bSearchable=0),
list(bSearchable=0),list(bSearchable=1))))
}
))
Regards,
Yihui