我刚刚切换到我的Shiny应用程序中的DataTables。在UI中,我在Mainpanel中具有dataTableOutput("affordabilityTable")
,并且服务器中的以下renderDataTaTAt
output$affordabilityTable <- renderDataTable({
dt <- data.table::copy(data.afford())
dt <- DT::datatable(dt, options = list(autoHideNavigation = TRUE, rownames = FALSE, filter = "none"))
# dt <- DT::datatable(dt, options = list(dom = 't',ordering = F))
dt
})
在关闭过滤,列排序等的意义上,注释的代码有效。它确实在第一列中留下了行号,我无法弄清楚如何摆脱。无需使用的数据线留下所有显示的过滤功能。
我包含的代码还不够完整,无法通过行号复制问题,但我希望有一些可以对具有某些数据列表体验的人显而易见的解决方案。
rownames
参数是datatable
调用的一部分,而不是options
内。或更具体地
dt <- DT::datatable(dt, rownames = FALSE, options = list(dom = 't',ordering = F))
我知道这很困惑。您可以认为options
是原始JS模块datatable
参数,而DT::datatable
添加了其他一些参数。