Question

我正在设计一个Shiny应用程序，用于根据各种手段对人们进行排名。我希望使用DT排序功能，用户可以单击任何列并按其排序。

使用行名作为排名似乎很自然；问题是这些数字与表格的其余部分一起排序。有什么方法可以冻结此列，以便在表的其余部分排序时，排名数字保持不变？也许具有JavaScript函数？

编辑：在下面的示例中，当我单击“ Metric_1”时，我希望行名保持为1、2、3、4，而不是排序为3、2、1、4以匹配Person C的新顺序，人B，人A，人D。结束编辑

我在RStudio帮助页面上没有看到此选项：https://rstudio.github.io/DT/

# Simplified example

library(shiny)
library(DT)


ui <- fluidPage(

    DT::dataTableOutput("table")

)

server <- function(input, output) {

    output$table <- DT::renderDataTable({

        x <- data.frame(
            Name = c("Person A", "Person B", "Person C", "Person D"), 
            Metric_1 = c(8, 7, 4, 10), 
            Metric_2 = c(3, 5, 2, 8)
        )

        datatable(x)

    })
}

shinyApp(ui = ui, server = server)

Answer 1

这是使用this SO answer

的有效示例

library(shiny)
library(DT)


ui <- fluidPage(

  DT::dataTableOutput("table")

)

server <- function(input, output) {
  js <- c(
    "table.on('draw.dt', function(){",
    "  var PageInfo = table.page.info();",
    "  table.column(0, {page: 'current'}).nodes().each(function(cell,i){", 
    "    cell.innerHTML = i + 1 + PageInfo.start;",
    "  });",
    "})")

  output$table <- DT::renderDataTable({

    x <- data.frame(
      Name = c("Person A", "Person B", "Person C", "Person D"), 
      Metric_1 = c(8, 7, 4, 10), 
      Metric_2 = c(3, 5, 2, 8)
    )

    datatable(x, callback = JS(js))

  })
}

shinyApp(ui = ui, server = server)

闪亮的DT：在排序时冻结行名吗？

1 个答案: