Shiny应用中DataTables列的自定义排序实现问题

我正在构建一个包含DataTables的Shiny应用，需要为其中一个数据表的列实现非标准排序——点击表头触发排序，效果是按自定义的High、Medium、Low优先级排序：降序为High→Medium→Low，升序为Low→Medium→High。实际场景中该列混合了数字ID与字符串，我尝试过多种方法（包括在DT函数的callback参数中直接操作数据及使用table.clear()），但仍未解决问题，附上相关代码：

library(shiny)
library(DT)

ui <- fluidPage(
  tags$head(
    tags$script(HTML(" 
  function whenDataTableAvailable(callback) {
    if (window.jQuery && jQuery.fn && jQuery.fn.dataTable) {
      callback();
    } else {
      setTimeout(function() { whenDataTableAvailable(callback); }, 50);
    }
  }

  whenDataTableAvailable(function() {
    jQuery.fn.dataTable.ext.type.order['custom-level-pre'] = function(d) {
      switch(d) {
        case 'Low': return 1;
        case 'Medium': return 2;
        case 'High': return 3;
        default: return 0;
      }
    };
  });
"))
    
  ),
  DTOutput("mytable")
)

server <- function(input, output, session) {
  output$mytable <- renderDT({
    datatable(
      data.frame(
        ID = 1:5,
        Priority = c("Medium", "Low", "High", "Medium", "Low")
      ),
      options = list(
        columnDefs = list(
          list(
            targets = 1,
            type = 'custom-level'
          )
        )
      )
    )
  }, server = FALSE) 
  
  
}

shinyApp(ui, server)

你的代码核心问题在于自定义排序类型的注册时机和DT的初始化顺序不匹配，另外无需额外的等待函数。以下是修正后的代码：

library(shiny)
library(DT)

ui <- fluidPage(
  DTOutput("mytable")
)

server <- function(input, output, session) {
  output$mytable <- renderDT({
    datatable(
      data.frame(
        ID = 1:5,
        Priority = c("Medium", "Low", "High", "Medium", "Low")
      ),
      options = list(
        columnDefs = list(
          list(
            targets = 1,  # 对应第二列Priority（DT列索引从0开始）
            type = 'custom-level'
          )
        )
      ),
      callback = JS("
        // 注册自定义排序规则，确保表格初始化前生效
        jQuery.fn.dataTable.ext.type.order['custom-level-pre'] = function(d) {
          switch(d) {
            case 'Low': return 1;
            case 'Medium': return 2;
            case 'High': return 3;
            default: return 0;
          }
        };
      ")
    )
  }, server = FALSE) 
}

shinyApp(ui, server)

关键修改说明 #

• 调整注册时机：把自定义排序类型的注册代码放到DT的callback参数中，这样能保证在表格初始化前完成规则注册，避免因加载顺序导致的规则失效。
• 简化代码结构：移除了额外的whenDataTableAvailable等待函数，DT的callback会自动在表格准备就绪时执行。

适配混合数据场景 #

如果实际列中同时存在数字ID和优先级字符串，可以修改排序函数来兼容两种类型：

jQuery.fn.dataTable.ext.type.order['custom-level-pre'] = function(d) {
  // 先判断是否为数字ID，优先按数字排序
  const num = parseInt(d);
  if(!isNaN(num)){
    return num;
  }
  // 处理优先级字符串
  switch(d) {
    case 'Low': return 1;
    case 'Medium': return 2;
    case 'High': return 3;
    default: return 0;
  }
};

内容的提问来源于stack exchange，提问作者user3794512