Shiny R结合Leaflet的searchInput默认未展示全量点位问题咨询

• 输入对象引用错误：shinyWidgets的searchInput指定inputId = "search"时，仅会将用户确认输入的文本存储在input$search中，不存在input$search_search、input$search_reset这类内部参数，直接导致筛选条件逻辑失效，最终筛选结果为空，出现默认无点位、清空搜索后点位消失的问题。
• 姓名筛选逻辑错误：原有两条冗余的搜索判断条件不符合组件实际返回规则，未实现“搜索为空时展示全部”的逻辑。

UI端修正 #

删除冗余语法错误：

• searchInput参数末尾多余的逗号
• CSS样式中background-color: #c0c0c0;后多余的w字符
  修正后的对应代码片段：

tags$head(tags$style(
    HTML('
         #sidebar {
            background-color: #c0c0c0;
         }

         body, label, input, button, select { 
            font-family: "Garamond";
         }')
)),

searchInput(
  inputId = "search", label = "Search by Name",
  btnSearch = icon("search"),
  btnReset = icon("remove")
),

Server端修正 #

1. 重写filtered_map响应式函数的筛选逻辑，删除不存在的输入引用，仅当搜索框有输入时追加姓名过滤条件。
2. 优化renderLeaflet的数据源绑定逻辑，显式指定标记使用筛选后的数据。
   完整修正后的Server端代码：

shinyServer(function (input, output) {
    
  filtered_map <- reactive({
    # 基础筛选逻辑（年份、性别、州）
    rows <- (deaths$Year <= input$yearrange[2] & deaths$Year >= input$yearrange[1]) &
      (input$year == "All" | deaths$Year == input$year) &
      (input$gender == "All" | deaths$Gender == input$gender) &
      (input$state == "All" | deaths$State == input$state)
    
    # 姓名筛选：仅当搜索框有非空输入时执行匹配，为空则不追加过滤
    if (nzchar(input$search)) {
      # 全等匹配用下行；如需模糊匹配替换为 rows <- rows & stringr::str_detect(deaths$Victimsname, input$search)
      rows <- rows & (deaths$Victimsname == input$search)
    }
    
    deaths[rows, , drop = FALSE] 
  })
  
  
  output$map <- renderLeaflet({
    leaflet() %>%
      setView(lng = -97.312891, lat = 38.49024, zoom = 4) %>%
      addProviderTiles("CartoDB.DarkMatter", options = providerTileOptions(noWrap = TRUE, minZoom = 4, maxZoom = 10)) %>%
      addCircleMarkers(
        data = filtered_map(),
        lng = ~Longitude, 
        lat = ~Latitude,
        radius = 3,
        color = "DarkRed", 
        popup = paste(
          "<b>", filtered_map()[["Victimsname"]], "</b><br/>",
          "Age:", filtered_map()[["Age"]], "<br>",
          "City:", filtered_map()[["City"]], "<br>"
        )
      )
  })
})

• searchInput与普通textInput的核心差异：普通textInput会随输入实时更新input$xxx的值，searchInput默认仅在用户点击搜索按钮、按下回车时才会更新input$search的值，点击重置按钮会自动将input$search置为空字符串。
• 如需实现输入时实时筛选（无需点击搜索按钮），可在searchInput中新增参数trigger = "reset"，或直接替换为textInput。

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