在R Shiny的DT数据表中添加动态新增列按钮的技术问询

Here's a complete implementation that lets you add custom-named editable columns to your DT table, with all changes reflected in the underlying dataframe:

library(DT)
library(shiny)

ui <- basicPage(
  h2("Editable mtcars with Custom Columns"),
  # Input for custom column name
  textInput("col_name", "Enter Column Name:", placeholder = "e.g., Experiment Notes"),
  # Button to trigger column addition
  actionButton("add_col", "Add New Column"),
  # DT table output
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  # Reactive value to store our dynamically updated dataframe
  reactive_df <- reactiveVal(mtcars)
  
  # Handle adding new columns when the button is clicked
  observeEvent(input$add_col, {
    # Ensure the user provided a column name
    req(input$col_name)
    
    new_col <- input$col_name
    current_df <- reactive_df()
    
    # Avoid duplicate column names
    if (new_col %in% colnames(current_df)) {
      showNotification("This column name already exists!", type = "warning")
      return()
    }
    
    # Add the new empty column (filled with NA)
    current_df[[new_col]] <- NA
    reactive_df(current_df)
    
    # Clear the input field for next use
    updateTextInput(inputId = "col_name", value = "")
  })
  
  # Handle cell edits to update the dataframe
  observeEvent(input$mytable_cell_edit, {
    edit_info <- input$mytable_cell_edit
    current_df <- reactive_df()
    
    # Adjust column index: DT counts rownames as column 1, so subtract 1
    col_index <- edit_info$col - 1
    
    # Update the specific cell value
    current_df[edit_info$row, col_index] <- edit_info$value
    
    # Save the updated dataframe back to the reactive value
    reactive_df(current_df)
  })
  
  # Render the editable DT table
  output$mytable <- DT::renderDataTable({
    reactive_df()
  },
  editable = TRUE,  # Enable cell editing
  rownames = TRUE,  # Keep mtcars row names
  options = list(
    pageLength = 10,
    autoWidth = TRUE,
    dom = 't'  # Simplify controls (remove search/export if needed)
  )
  )
}

shinyApp(ui, server)

Key Features Explained #

• Reactive Data Storage: We use reactiveVal to hold our dataframe. This lets the app automatically update the table whenever the dataframe changes (when adding columns or editing cells).

• Custom Column Names: The textInput lets you specify a unique name for each new column. We check for duplicates to avoid overwriting existing data.

• Editable Cells: Setting editable = TRUE in renderDataTable allows users to type directly into cells. The observeEvent for input$mytable_cell_edit captures these changes and updates the underlying dataframe.

• User Feedback: We show a warning notification if you try to use an existing column name, and clear the input field after adding a column for convenience.

How to Use #

1. Type a unique column name into the text box (e.g., "Experiment Date" or "Notes").
2. Click "Add New Column"—a blank column will appear at the end of the table.
3. Click any cell in the new column to enter text or numeric values. All edits are saved to the dataframe in real-time.

You can extend this further by adding features like deleting columns, but this covers your core requirements of adding custom-named editable columns.

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