在带有下拉选择的shiny中编辑数据表(适用于DT v0.19)

在带有下拉选择的shiny中编辑数据表（适用于DT v0.19），可以通过以下步骤实现：

安装必需的包：在shiny应用程序的ui中添加如下代码以加载所需的包：

library(shiny)
library(DT)

创建数据表：在ui中添加一个dataTableOutput元素用于显示数据表，例如：

ui <- fluidPage(
  dataTableOutput("myTable")
)

在server中生成数据表：使用renderDataTable函数生成数据表，并添加可编辑的下拉选择列。在下拉选择列的editor选项中，使用selectize = TRUE来启用下拉选择功能，例如：

server <- function(input, output) {
  output$myTable <- renderDataTable({
    # 生成数据表
    datatable(
      iris,  # 使用示例数据集
      editable = "cell",  # 设置表格可编辑
      options = list(
        columnDefs = list(list(
          targets = "_all",
          render = JS(
            "function(data, type, row, meta) {",
            "  if (type === 'display') {",
            "    if (meta.col === 4) {",  # 设置需要添加下拉选择的列的索引
            "      return '<select><option>Setosa</option><option>Versicolor</option><option>Virginica</option></select>';",
            "    }",
            "  }",
            "  return data;",
            "}"
          )
        ))
      )
    )
  })
}