如何在运行R闪亮应用时编辑datatable函数中的列名？

library(shiny)
library(shinydashboard)

# 创建一个仪表板
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    # 数据表格
    datatable(
      data = my_data, 
      options = list(
        pageLength = 10,
        searchHighlight = TRUE
      )
    )
  )
)

datatable(
  data = my_data, 
  colnames = c("列1", "列2", "列3"),  # 设置列名
  options = list(
    pageLength = 10,
    searchHighlight = TRUE
  )
)

server <- function(input, output) {
  output$my_table <- renderDataTable({
    # 动态生成datatable，并设置列名
    datatable(
      data = my_data, 
      colnames = c(input$col1, input$col2, input$col3),  # 使用输入的值作为列名
      options = list(
        pageLength = 10,
        searchHighlight = TRUE
      )
    )
  })
}

dashboardBody(
  # 输出渲染的数据表格
  dataTableOutput("my_table")
)