在Shiny中基于DataTable（服务端）实现数据框行永久删除

要实现选中行永久删除、切换数据框后状态保留的需求，核心是用reactiveValues来存储数据框列表（它支持响应式修改且状态会持久保存），配合DT表格的行选中事件和删除按钮完成操作，具体实现如下：

完整代码示例 #

library(shiny)
library(DT)
library(ggplot2)

ui <- fluidPage(
  titlePanel("多CSV上传与行删除"),
  sidebarLayout(
    sidebarPanel(
      fileInput("upload", "上传多个CSV文件",
                multiple = TRUE,
                accept = ".csv"),
      selectInput("data_select", "选择数据框", choices = NULL),
      actionButton("delete_btn", "删除选中行")
    ),
    mainPanel(
      DTOutput("table"),
      plotOutput("scatter_plot")
    )
  )
)

server <- function(input, output, session) {
  # 用reactiveValues存储数据框列表，持久保存修改
  rv <- reactiveValues(data_list = list())
  
  # 上传文件后解析并存储到rv$data_list
  observeEvent(input$upload, {
    uploaded_files <- input$upload
    if (!is.null(uploaded_files)) {
      for (i in seq_len(nrow(uploaded_files))) {
        file_path <- uploaded_files$datapath[i]
        file_name <- uploaded_files$name[i]
        # 解析CSV，可根据需求调整参数
        df <- read.csv(file_path, stringsAsFactors = FALSE)
        rv$data_list[[file_name]] <- df
      }
      # 更新下拉选择框的选项
      updateSelectInput(session, "data_select", choices = names(rv$data_list))
    }
  })
  
  # 当前选中的数据框
  current_data <- reactive({
    req(input$data_select)
    rv$data_list[[input$data_select]]
  })
  
  # 渲染DT表格，支持行选中
  output$table <- renderDT({
    req(current_data())
    datatable(current_data(), selection = "multiple")
  })
  
  # 删除选中行的操作
  observeEvent(input$delete_btn, {
    req(input$data_select, input$table_rows_selected)
    # 获取当前数据框
    df <- rv$data_list[[input$data_select]]
    # 删除选中的行
    df <- df[-input$table_rows_selected, , drop = FALSE]
    # 把修改后的数据框存回rv，实现永久保存
    rv$data_list[[input$data_select]] <- df
  })
  
  # 渲染散点图（默认取前两列做x/y轴，可根据需求调整）
  output$scatter_plot <- renderPlot({
    req(current_data())
    df <- current_data()
    if (ncol(df) >= 2) {
      ggplot(df, aes(x = .data[[colnames(df)[1]]], y = .data[[colnames(df)[2]]])) +
        geom_point() +
        labs(title = paste(input$data_select, "散点图"))
    } else {
      plot(NULL, xlim = c(0,1), ylim = c(0,1), xlab = "", ylab = "", main = "数据列不足，无法生成散点图")
    }
  })
}

shinyApp(ui, server)

关键细节说明 #

• 用reactiveValues存储数据：普通reactive对象是只读的，无法直接修改；而reactiveValues可以动态修改内部列表元素，修改后状态会一直保留，切换数据框再返回时，已删除的行不会恢复。
• DT行选中的索引获取：input$table_rows_selected会返回当前表格中选中行的索引，直接用这个索引对数据框进行行删除操作即可。
• 响应式更新触发：当点击删除按钮修改rv中的数据后，所有依赖current_data()的组件（DT表格和散点图）会自动重新渲染，实现同步更新。
• 上传后的处理：上传多个CSV时，按文件名作为数据框的键存入列表，下拉选择框的选项会自动更新为已上传的文件名。

内容的提问来源于stack exchange，提问作者ZT_Geo