RShiny: DT选择行并分配给组

library(shiny)
library(DT)

# 假设有一个名为data的数据框
data <- data.frame(
  ID = 1:10,
  Name = c("John", "Jane", "Mike", "Emily", "David", "Sarah", "Tom", "Amy", "Chris", "Lily"),
  Group = rep("", 10),
  stringsAsFactors = FALSE
)

# 创建一个空的数据框用于存储选择的行
selected_rows <- data.frame(
  ID = integer(),
  Name = character(),
  Group = character(),
  stringsAsFactors = FALSE
)

ui <- fluidPage(
  title = "RShiny App",
  sidebarLayout(
    sidebarPanel(
      actionButton("assignBtn", "Assign to Group")
    ),
    mainPanel(
      DT::dataTableOutput("data_table")
    )
  )
)

server <- function(input, output, session) {
  output$data_table <- DT::renderDataTable({
    datatable(
      data,
      selection = list(mode = "multiple", target = "row", selected = selected_rows$ID),
      escape = FALSE,
      rownames = FALSE,
      options = list(
        columnDefs = list(
          list(className = "dt-center", targets = "_all")
        ),
        dom = "Bfrtip",
        buttons = list("colvis")
      )
    )
  })
  
  observeEvent(input$data_table_rows_selected, {
    selected_rows <<- data[input$data_table_rows_selected, ]
  })
  
  observeEvent(input$assignBtn, {
    # 在这里处理分配给组的逻辑
    # 可以将selected_rows中的行分配给相应的组
  })
}

shinyApp(ui, server)