将字符串添加到列表中并删除 SearchInput / textinput 的搜索栏中的文本

Question

可以说我的应用程序上有来自 shinyWidgets 的 searchInput 或来自 Shiny 的常规文本输入。

我希望用户能够写一些东西，按 enter - 代码将其添加到列表中。 这样search_1 ENTER , search_2 ENTER , search_3 ENTER

每次按下回车键时，搜索输入 UI 都会被重置。

Output 需要是“search_1, search_2, search_3”

我现在有解决方法，使用 searchInput 将输入文本拆分为“，”，因此用户需要自己键入“search_1、search_2、search_3”，这不是最佳使用方式。

希望这可以做到吗？ 提前致谢！

Answer 1

您可以创建一个反应值search_text存储所有输入：

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  searchInput("search"),
  textOutput("text")
)

server <- function(input, output, session) {
  # store all entered search terms
  search_text <- reactiveVal(value = "")
  
  observeEvent(
    eventExpr = input$search,
    handlerExpr = {
      # add current search term
      search_text() %>%
        paste0(input$search, ", ") %>%
        search_text()
      
      # reset input text
      updateSearchInput(session, "search", value = "")
    }
  )
  
  output$text <- renderText(search_text())
}

shinyApp(ui, server)