R Shiny,从DataTables中删除列内过滤器

Question

[也发布在Shiny Google Group]

当我尝试显示dataTable时,我遇到了一些(我相信)意外行为.当我显示表格时,我的目标是删除大部分排序/分页/过滤/处理选项.到目前为止,设置bSort = 0,bProcessing = 0,bPaginate = 0,bInfo = 0似乎产生了期望的结果.但是当我设置bFilter = 0时,只有右上角的"全局"过滤器框被删除; 列内过滤器框保留(我希望bFilter = 0以删除所有过滤器框).

任何人都可以帮助代码删除列内过滤器框(请和谢谢你).[另外,我知道列特定的格式选项,但到目前为止还无法成功实现它们以消除列内格式].我在下面包含了最少的代码来重现问题:

shinyUI(pageWithSidebar(

  #my code has a header panel;
  headerPanel("Table Example"),

  #my code has a sidebar panel;
  sidebarPanel(helpText("Stuff Here")),

  #table is displayed in the main panel;
  mainPanel(dataTableOutput("myTable"))
))


shinyServer(function(input, output) {

  #example dataTable that produces undesired result;
  output$myTable <- renderDataTable({
    as.data.frame(matrix(sample(1:10,100,replace=TRUE),nrow=20,ncol=10))
  }, options = list(bFilter=0, bSort=0, bProcessing=0, bPaginate=0, bInfo=0))

})

[行为显示从服务器和本地运行.闪亮0.7.0.99.使用谷歌浏览器]

提前致谢!

Answer 1

解决方案是简单地编辑与myTable输出对象关联的css:

即改变:

mainPanel(dataTableOutput("myTable"))

至

mainPanel(
  dataTableOutput("myTable"),
  tags$style(type="text/css", '#myTable tfoot {display:none;}')
)