shiny R:如何使用gvisTable对数据帧进行反应性排序

install.packages("shiny")
install.packages("googleVis")

library(shiny)
library(googleVis)

ui <- fluidPage(
  titlePanel("使用gvisTable对数据帧进行反应性排序"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加任何输入控件，如过滤器或选择器
    ),
    mainPanel(
      # 在这里放置gvisTable表格
      htmlOutput("table")
    )
  )
)

server <- function(input, output) {
  # 在这里进行数据处理和排序
  # 生成一个数据帧df，并对其进行排序
  df <- reactive({
    # 在这里对数据帧进行排序操作
    # 例如，可以使用order()函数对某一列进行排序
    sorted_df <- df()[order(df()$column_name), ]
    return(sorted_df)
  })
  
  # 将排序后的数据帧传递给gvisTable函数，并将结果呈现为HTML表格
  output$table <- renderGvis({
    gvisTable(df())
  })
}

# 运行shiny应用程序
shinyApp(ui = ui, server = server)