Shiny开发：如何从文本输入向空数据框添加行

需求 #

• 用户输入文本
• 按下回车键
• 文本添加至响应式DataFrame，同时清空输入框

问题分析 #

当前代码存在两个关键问题：

1. searchInput组件按下回车键时，触发的是[inputId]_search而非inputId本身，原代码监听input$search会导致输入过程中就触发，而非仅回车触发
2. 使用add_row后未将结果重新赋值给data$df，导致响应式数据未实际更新

修正后的代码 #

library(tidyverse)
library(shinyWidgets)
library(reactable)
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    searchInput("search", placeholder = "输入文本后按回车"),
    reactableOutput("search_table")
  )
)

server <- function(input, output, session) {
  
  # 初始化空的响应式数据框
  data <- reactiveValues(df = tibble(names = character(0)))
  
  # 监听回车事件：searchInput回车时触发input$search_search
  observeEvent(input$search_search, {
    # 仅当输入不为空时添加行
    if (input$search_search != "") {
      data$df <- data$df %>% 
        add_row(names = input$search_search)
      
      # 清空输入框
      updateSearchInput(session, "search", value = "")
    }
  })
  
  # 渲染响应式表格
  output$search_table <- renderReactable({
    reactable(data$df)
  })
  
}

shinyApp(ui, server)

关键修改说明 #

• 监听input$search_search：这是searchInput组件专门用于捕捉回车触发的输入值
• 赋值更新响应式数据：data$df <- data$df %>% add_row(...)确保修改后的数据被存回响应式变量
• 添加非空判断：避免回车时添加空行
• 初始化为空的tibble：确保表格初始状态为空

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