R閃亮的數據表列未按數字排序

Question

我在使用 DT::rednerDataTable 時遇到了問題。 生成數據表時，我有三列（共 10 列）未排序的數字。 這是排序后的樣子：

這是我的代碼：

library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardBody(
    tabItems((tabName = "ResultsTable",
              fluidPage(column(11, DT::dataTableOutput("table",width = "100%"),offset = 0))))

shinyServer(function(input, output, session) {
        output$table <- DT::renderDataTable(DT::datatable({
          data <- rv$data
          if (input$sour != "All") {
            data <- data[data[,1] == input$sour,]
          }else{data}
          if (input$sour1 != "All") {
            data <-data[data[,2] == input$sour1,]
          }else{data}
          if (input$tran2 != "All") {
            data <-data[data[,3] == input$tran2,]
          }else{data}
        }))
})

變量 data 是一個 data.frame 並且數字列已經排序，但是當我單擊表中列名稱旁邊的向上和向下箭頭（如下所示）時，排序變得混亂。

我很感激任何幫助！

謝謝

Answer 1

我的數據是一個矩陣。 我首先必須將其轉換為數據框，然后將所需的列更改為數字（某些列字符串）。 我不必更改上面的代碼。 正是在生成數據表的腳本中。 該表有 10 列，列的 5:8 為數字。

 table_output=as.data.frame(table_output);
data=cbind(table_output[,1:4],as.numeric(as.character(table_output[,5])),as.numeric(as.character(table_output[,6])),as.numeric(as.character(table_output[,7])), as.numeric(as.character(table_output[,8])), table_output[,9:10])