如何在Shiny R中放弃对DT::datatable的用户编辑

install.packages("shiny")
install.packages("DT")

library(shiny)
library(DT)

ui <- fluidPage(
  titlePanel("Shiny R - 放弃对DT::datatable的用户编辑"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入控件（如果需要）
    ),
    mainPanel(
      DT::dataTableOutput("myTable")
    )
  )
)

server <- function(input, output) {
  output$myTable <- DT::renderDataTable({
    # 生成datatable，并设置editable参数为FALSE
    datatable(your_data, editable = FALSE)
  })
}

shinyApp(ui, server)