ColReorder DT扩展与shinyjqui的结合

Question

我的目标是显示一些数据表和：

1)启用所有表的重铺栏

2)启用查表顺序。

我的第一次尝试是结合使用shinyjqui::jqui_sortable和DT::datatable。

对于重新排序的列，ColReorder扩展做了很好的工作。

library(DT)
datatable(mtcars,
          extensions = c("ColReorder"),
          options = list(colReorder = TRUE))

但是，在使用jqui_sortable添加交互之后，列重新排序不再有效：

library(DT)
library(ggplot2)

server <- function(input, output) {
  output$tb <-renderDataTable({
    datatable(mtcars,
              extensions = c("ColReorder"),
              options = list(colReorder = TRUE))
  })

  output$gg <- renderPlot({
    ggplot(mtcars, aes(x = cyl, y = mpg, color = factor(vs))) + 
      geom_point() + 
      theme(legend.position= "none")
  })
}

ui <- fluidPage(
  jqui_sortable(div(plotOutput('gg', width = '200px', height = '200px'),
                    dataTableOutput('tb', width = '200px', height = '200px')
                    ))
)

shinyApp(ui, server)

我想知道如何解决这个问题，或者提出另一种方法:)

Answer 1

将options参数添加到jqui_sortable函数：options = list(cancel = '.dataTables_scroll')。在本例中，它取消了使用类.dataTables_scroll (带有列名)对元素的排序功能。