R 闪亮DT（数据表）中的自然排序不'；行不通

亲爱的闪亮大师和DT大师们！ 我试图在我闪亮的应用程序中使用自然排序插件，但它似乎不起作用。我认为它与以前版本的Shining或/或DT软件包一起工作。有人能帮我吗？请参见下面的示例（我正在尝试对最后一列进行排序）：

服务器.R

library(shiny)
require(DT)
shinyServer(function(input, output) {
    output$example <- DT::renderDataTable({
        table = cbind(LETTERS[1:5],matrix(1:20,nrow=5),c(1,2,3,10,"a"))
        table = rbind(c("filtered",round(rnorm(5),3)),table)
        DT::datatable(table,
                      rownames = FALSE,
                      extensions = list(FixedColumns = list(leftColumns = 1)),
                      options = list(
                          columnDefs = list(list(type = "natural", targets = "_all"))))
    })
})

在DT（>=0.1.16）中，可以使用

datatable（…，plugins='natural'）

启用此插件，例如

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput('example')
  ),
  server = function(input, output) {
    output$example <- DT::renderDataTable({
      table = cbind(LETTERS[1:5],matrix(1:20,nrow=5),c(1,2,3,10,"a"))
      table = rbind(c("filtered",round(rnorm(5),3)),table)
      table
    }, server = FALSE, plugins = 'natural', options = list(
      columnDefs = list(list(type = "natural", targets = "_all"))
    ))
  }
)

库（闪亮）
图书馆（DT）
shinyApp(
ui=fluidPage(
DT:：dataTableOutput（'示例'）
),
服务器=功能（输入、输出）{
output$example看起来没有正确加载初始表。很抱歉，键入错误，但想法保持不变…对所有列进行排序对我来说非常有效。是否出现任何错误或警告？谢谢，你们确实取得了进展！但是，在我们的服务器上，我们正在处理非常大的表（当然我们使用的是
滚动条
），所以我们不想使用
server=FALSE
。但是它不能与
=TRUE
@user1991825一起工作。不幸的是，这个插件不是为服务器端处理模式设计的。要实现
server=TRUE
的自然排序可能有点复杂，但您无论如何都可以向提交一个功能请求。我来看看是否是这样当我有更多的时间的时候可能。
library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    DT::dataTableOutput('example')
  ),
  server = function(input, output) {
    output$example <- DT::renderDataTable({
      table = cbind(LETTERS[1:5],matrix(1:20,nrow=5),c(1,2,3,10,"a"))
      table = rbind(c("filtered",round(rnorm(5),3)),table)
      table
    }, server = FALSE, plugins = 'natural', options = list(
      columnDefs = list(list(type = "natural", targets = "_all"))
    ))
  }
)