將動態行等級添加到閃亮的DT

Question

我試圖根據行的順序在我閃亮的數據表中從最小值到最大值添加行等級。 我希望行排名根據已排序的列進行更新。 我最好的想法要么是使用rownames但與那些行改變或使用input$table_state$order和saveState找出被訂購的柱，然后重新計算rank列。 我提供了一個使用iris數據集的示例。

library(shiny)
library(DT)
library(tidyverse)

data = iris %>% distinct(Species, .keep_all = TRUE) %>%
    arrange(Sepal.Length) %>%
    mutate(rank = 1:3) %>%
    select(rank, Species, everything())


# Define UI for application that draws a histogram
ui <- fluidPage(
 DT::dataTableOutput("table")
)


# Define server logic required to draw a histogram
server <- function(input, output) {

output$table = DT::renderDataTable({
DT::datatable(data,
              rownames = FALSE,
              options = list(
                columnDefs = list(list(orderable = FALSE, targets = 0:1)),
                order = list(list(2, "asc")),
                ordering = TRUE
              ))
})

}

# Run the application 
shinyApp(ui = ui, server = server)