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

Question

我正在尝试生成一个包含可排序列的数据表，其中日期格式为eu-format（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)))))
  }
))

不幸的是，排序无法正常工作。我究竟做错了什么？任何帮助将不胜感激。