如何在R Shiny App中实现关键词搜索并解决运行报错问题

• 服务端renderUI()要求返回单个可解析的HTML对象，你当前代码中pull(sentence)会返回长度≥1的字符向量。当匹配到多个句子时，输出对象长度>1，不符合renderUI()的参数要求，因此触发报错。
• 额外存在的潜在问题：未处理用户输入为空、无匹配结果的边界场景，且grepl()默认大小写敏感，会降低搜索体验。

推荐使用将匹配结果封装为HTML列表的实现方式，显示效果更清晰，无需修改UI端代码，仅修改服务端逻辑即可：

output$Text_KWIC = renderUI({
  # 处理空输入兜底
  if(is.null(input$Input_KWIC) || nchar(trimws(input$Input_KWIC)) == 0){
    return(tags$p("请输入关键词后进行搜索"))
  }
  # 模糊匹配句子，忽略大小写
  match_res <- data %>%
    filter(grepl(trimws(input$Input_KWIC), sentence, ignore.case = TRUE)) %>%
    pull(sentence)
  # 处理无匹配兜底
  if(length(match_res) == 0){
    return(tags$p("未找到包含该关键词的句子"))
  }
  # 将多个句子封装为无序列表，转为单个HTML对象返回
  tags$ul(
    lapply(match_res, function(x) tags$li(x))
  )
})

如果需要更简单的纯文本展示效果，也可以调整组件类型实现：

# UI端修改示例
sidebarPanel(
  textInput("Input_KWIC", "Enter a keyword:"),
  mainPanel(verbatimTextOutput("Text_KWIC"))
)

# 对应服务端代码
output$Text_KWIC = renderPrint({
  if(is.null(input$Input_KWIC) || nchar(trimws(input$Input_KWIC)) == 0){
    cat("请输入关键词后进行搜索")
    return()
  }
  match_res <- data %>%
    filter(grepl(trimws(input$Input_KWIC), sentence, ignore.case = TRUE)) %>%
    pull(sentence)
  if(length(match_res) == 0){
    cat("未找到包含该关键词的句子")
    return()
  }
  cat(paste(match_res, collapse = "\n"))
})

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