Add Search by Input Coordinate

[mhaditama26]

How to put plugin like http://zyzo.github.io/gsoc/fossasia/2015/05/03/gsoc-map-picker-task.html in R leaflet ?

[trafficonese]

There is no need for leaflet.extras for this use-case as far as I understand.

Here is a little working example:

library(shiny)  
library(leaflet)

ui <- fluidPage(
  textInput("lat", "Latitute", ""),
  textInput("lon", "Longitude", ""),
  leafletOutput("map")
)

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

  observe({
    lat <- req(input$lat)
    lat <- tryCatch(as.numeric(lat),
                    warning = function(e) req(FALSE),
                    error = function(e) req(FALSE))
    lon <- req(input$lon)
    lon <- tryCatch(as.numeric(lon), 
                    warning = function(e) req(FALSE),
                    error = function(e) req(FALSE))

    leafletProxy("map") %>%
      setView(lat = lat, lng = lon, zoom = isolate(input$map_zoom)) %>% 
      clearGroup("markers") %>% 
      addMarkers(lat = lat, lng = lon, 
                 group = "markers",
                 labelOptions = labelOptions(permanent = TRUE),
                 label = paste0("Your location: ", lat, ", ", lon)
                 )
  })
}
shinyApp(ui, server)