R 使用EU日期格式对日期表列进行排序

我试图生成一个数据表，其中包含一个可排序的列，该列的日期为eu格式（dd.mm.yyyy）。我试图使用date-eu.js插件，但它不起作用。下面是一个示例代码：

library(shiny)
runApp(shinyApp(
  ui = fluidPage(
     tags$head(tags$script(src="http://cdn.datatables.net/plug-ins/725b2a2115b/sorting/date-eu.js")),
     dataTableOutput("tab")
  ), 
  server = function(input, output) {
    output$tab <- renderDataTable({ 
      data.frame(x = 1:6, y = 1:6, date = format(Sys.Date() - c(0, 15, 30, 45, 60, 75), '%d.%m.%Y'))
    }, options = list(aoColumnDefs = list(list(sType = "date-eu", aTargets = list(2)))))
  }
))

库（闪亮）
runApp（shinyApp）(
ui=fluidPage(
标记$head（标记$script（src=）http://cdn.datatables.net/plug-ins/725b2a2115b/sorting/date-eu.js")),
dataTableOutput（“选项卡”）
), 
服务器=功能（输入、输出）{
output$tab我认为您需要在数据框上设置列类，或者使用
stringsAsFactors
，
date
列的类型是
character
还是
factor
，似乎并不重要。