Leafler R Shiny: Добавить новый маркер на карте по событию клика

Question

Я использую библиотеку листовок в R Shiny.Я хочу добавить новый маркер на карте с помощью мыши.Я могу выбрать широту и долготу, используя опцию input$mapid_click.Но я не могу обновить карту в блестящем приложении новым маркером.

Answer 1

Вы можете добавить их, используя функцию leafletProxy.

library(shiny)
library(leaflet)

ui <- fluidPage(
  leafletOutput('map')
)

server <- function(input, output, session) {
  output$map <- renderLeaflet({leaflet()%>%addTiles()})

  observeEvent(input$map_click, {
    click = input$map_click
    leafletProxy('map')%>%addMarkers(lng = click$lng, lat = click$lat)
  })
}

shinyApp(ui, server)