r - googleVis:多级排序功能 gvisTable sortColumn？

Question

有没有办法在 googleVis 的 gvisTable 中进行多级排序？
我正在使用 Shiny 来显示这样的 gvisTable:

x <- gvisTable(tabData,options=list(sortColumn=2,showRowNumber='TRUE',allowHtml='TRUE'),chartid=tabID)

我想知道是否有办法对值进行排序，例如，首先按第 2 列然后按第 3 列。

如果 gvisTable 没有这个功能，但是除了 googleVis 之外的另一个包中有另一种类型的表可以在 Shiny 中完成，那也很好。
有任何想法吗？

Answer 1

install.packages('shiny', type = 'source')

ui.r:

library(shiny)
shinyUI(bootstrapPage(
  dataTableOutput('tbl')
))

服务器.r:

library(shiny)
shinyServer(function(input, output) {
  output$tbl <- renderDataTable({
    data.frame(x = 1:10, y = c(1, 1, 2, 2, 3, 3, 4, 4, 5, 5))
  })
})

从数据表描述:
http://datatables.net/examples/basic_init/multi_col_sort.html

“如果 bSort 初始值设定项为真(默认情况下)，则这种多重排序机制始终处于事件状态，最终用户可以通过'shift'单击他们想要添加到排序的列来激活它。”

因此，当您运行此应用程序时，尝试按“y”排序，然后按住 Shift 键并单击 x(注意列标题​​中紫色突出显示的箭头)，以查看“y”列保持排序，而“x”列更改排序顺序使 y 固定。