如何在带有自定义列名的shiny中转置数据帧

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("转置数据帧"),
  sidebarLayout(
    sidebarPanel(
      # 在这里添加输入控件
      # 例如，可以添加一个文件上传控件来选择数据文件
    ),
    mainPanel(
      # 在这里添加输出控件
      # 例如，可以添加一个表格来显示转置后的数据帧
    )
  )
)

server <- function(input, output) {
  # 在这里添加服务器逻辑
  # 例如，可以在这里读取上传的数据文件，并进行转置操作
}

shinyApp(ui = ui, server = server)

sidebarPanel(
  fileInput("file", "选择数据文件")
)

server <- function(input, output) {
  data <- reactive({
    req(input$file)
    read.csv(input$file$datapath)
  })
  
  transposed_data <- reactive({
    t(data())
  })
  
  output$table <- renderTable({
    transposed_data()
  })
}

mainPanel(
  tableOutput("table")
)