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

library(shiny)
library(DT)

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

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;",
            "}"
          )
        ))
      )
    )
  })
}

shinyApp(ui, server)