在leaflet -R Shiny中突出显示来自用户输入的标记

library(shiny)
library(leaflet)

ui <- fluidPage(
  textInput("markerInput", "输入标记名称："),
  leafletOutput("map")
)

server <- function(input, output) {
  output$map <- renderLeaflet({
    leaflet() %>%
      addTiles() %>%
      setView(lng = 0, lat = 0, zoom = 2)
  })
  
  observeEvent(input$markerInput, {
    markerName <- input$markerInput
    
    leafletProxy("map") %>%
      clearMarkers() %>%
      addMarkers(lng = 0, lat = 0, popup = markerName, label = markerName,
                 highlightOptions = highlightOptions(color = "red", weight = 3))
  })
}

shinyApp(ui, server)