如何在 Shiny App 中创建关键字搜索？答案

【问题标题】：How to create a keyword search in a Shiny App?如何在 Shiny App 中创建关键字搜索？
【发布时间】：2021-11-16 19:57:15
【问题描述】：

我正在尝试构建一个闪亮的应用程序，以便用户可以与我在数据框中的一组句子“交互”。数据框如下所示：

# id: each sentence has a unique number
# file: name of the file the sentence comes from
# sentence: the actual sentence
# group: group the writer belongs to
# gender: writer's gender

id    file    sentence               group    gender
1     101s    the tree is tall.        A       female
2     101s    the sun is yellow.       A       female
3     102s    he reads a book.         D       male 
4     102s    she goes shopping.       D       male
5     103s    they drive the car.      B       female
...

我想使用 R Shiny 创建一个“上下文中的关键字”搜索栏。基本上，用户输入一个词，应用程序就会检索包含该词的句子。

这是我在ui.R 文件中包含的用于特定目的的代码：

sidebarPanel(
   textInput("Input_KWIC", "Enter a keyword:"),
mainPanel(htmlOutput("Text_KWIC")))),

这是我包含在server.R 文件中的代码。

output$Text_KWIC = renderUI({
        data %>%
            filter(grepl(input$Input_KWIC, sentence)) %>%
            pull(sentence)
        })

当我运行应用程序时，我收到此错误：“要写入的文本必须是长度为 1 的字符向量”（这是在我输入关键字之后）。

我不知道我做错了什么，也不知道错误是在 UI 中还是在服务器中。

【问题讨论】：

你说的好像是在DT::datatable实现的，你试过了吗？
我对按照我描述的方式进行操作很感兴趣。我不希望输出是一个表格，而是一个句子列表。

标签： r shiny

【解决方案1】：

您收到错误消息，因为您设置服务器功能的方式可能会导致不止一种结果。请记住，当应用程序启动时，文本框是空的，因此您的函数的返回是一个具有多个值（实际上是所有值）的向量，并且 renderUI 只消化 "Shiny tag object, HTML, or a list of such objects"。

现在您可以搜索值并获得响应，但有时响应向量具有多个值/项，这将导致相同的错误。

所以你可以这样做：

只选择搜索结果的第一个值：

  data %>%
      dplyr::filter(grepl(input$Input_KWIC, sentence)) %>%
      dplyr::pull(sentence) %>%
      .[1]

将输出转换为列表

  df %>%
      dplyr::filter(stringr::str_detect(sentence, pattern = input$Input_KWIC)) %>%
      dplyr::pull(sentence) %>%
      as.list()

将renderUI() 和htmlOutput() 更改为renderText() 和textOuput()，这将使您得到一个接一个列出的所有结果字符串
可能会起作用，但需要付出更多努力：在渲染函数中为多个值构建 html 输出
遵循@rawrs 的建议并使用某种表格输出

【讨论】：