Shiny中invalidateLater与DT点击事件致textInput清空的解决方法

问题根源在于：当invalidateLater触发表格刷新时，input$my_table_cell_clicked会被重置为NULL，此时你的cell_input响应式对象会返回tolower(NULL)（即NA），进而触发updateTextInput将输入框值设为NA，表现为输入框被清空。

以下是修正后的代码，核心思路是用持久化的响应式变量保存输入框的真实值，避免表格刷新时的无效值覆盖用户输入：

library(shiny)
library(DT)

### formatting function
get_table <- function(){
  my_table <- data.frame(Animal = c("Monkey","Giraffe","Rhino","Hippo"),Plant = c("Apple Tree","Birch","Cypress","Oak"),
                         Food = c("Burger","Ice Cream","Pasta","Pizza"))
  my_table <- datatable(my_table)
  return(my_table)
}

### transform cell entries to usable inputs
modify_input <- function(value){
  return(tolower(value))
}

ui <- fluidPage(
  textInput("my_input",label = "Enter an animal, plant or dish!"),
  dataTableOutput("my_table")
)

server <- function(input,output,session) {

  # 用reactiveVal持久化输入框的当前值
  current_input <- reactiveVal("")
  
  my_table <- reactive({
    invalidateLater(5000,session)
    get_table()
  })
  
  # 仅当点击的单元格有有效值时才生成处理后的值
  cell_input <- reactive({
    clicked_value <- input$my_table_cell_clicked$value
    if(!is.null(clicked_value)){
      modify_input(clicked_value)
    } else {
      NULL
    }
  })
  
  # 监听单元格点击事件，更新持久化的输入值
  observeEvent(cell_input(), {
    if(!is.null(cell_input())){
      current_input(cell_input())
    }
  })
  
  # 监听用户手动输入，更新持久化的输入值
  observeEvent(input$my_input, {
    current_input(input$my_input)
  })
  
  # 同步持久化值到textInput
  observe({
    updateTextInput(session,"my_input",value = current_input())
  })
  
  output$my_table <- renderDT({
    my_table()
  })
  
}

shinyApp(ui = ui, server = server)

关键修改说明：

• current_input <- reactiveVal("")：创建响应式变量存储输入框的真实值，不受表格刷新影响
• 优化cell_input逻辑：仅在点击的单元格值有效时返回处理后的值，避免NULL触发无效更新
• 双observeEvent：分别处理单元格点击和用户手动输入的场景，确保current_input始终与用户操作同步
• 最终的observe：将持久化的值同步到textInput，保证输入框显示内容稳定

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