inst/suggest/app.R

In uRos2018/nlgeocoder: Geocoding for the Netherlands

library(shiny)
library(nlgeocoder)
library(leaflet)
library(sf)

ui <- fluidPage(
    # Application title
    titlePanel("uRos conference"),

    sidebarLayout(
        sidebarPanel(
            selectizeInput("adres", choices="Henri Faasdreef 312"
                          , label = "Address:"
                          , options = list(
  labelField = "weergavenaam",
#  searchField = "weergavenaam",
  valueField= "weergavenaam",
  placeholder = "Type an address",
  maxOptions = 10,
  create = FALSE,
  loadThrottle = 200,
  render = I("{option: function(item, escape){
    return '<div>' + escape(item.weergavenaam) + ' (<em>' + escape(item.type) + '</em>) </div>';
  }}"),
  score = I("function(){return function(item){return item.score;}}"),
  load = I("function(query, callback) {
      if (!query.length) return callback();
      $.ajax({
        url: 'https://geodata.nationaalgeoregister.nl/locatieserver/v3/suggest?fq=type:adres&q=' + encodeURIComponent(query),
        type: 'GET',
        error: function() {
          callback();
        },
        success: function(res) {
          var docs = res.response.docs.slice();
          console.log(docs);
          callback(docs);
        }
      });}")
        )
                          )
        ),

        # Show a plot of the generated distribution
        mainPanel(
           leafletOutput("locations", height = 600)
        )
    )
)

server <- function(input, output, session) {
    points <- reactive({
        nl_geocode(input$adres)
    })

    output$locations <- renderLeaflet({
        leaflet() %>%
        addPdokTiles(type = "brt") %>%
        addPdokTiles(type = "gray") %>%
        addPdokTiles(type = "pastel") %>%
        addPdokTiles(type = "aerial") %>%
        addLayersControl(
          baseGroups = c("brt","gray","pastel","aerial"),
          options = layersControlOptions(position = "topleft")
        ) %>%
        addMarkers(data = points())
    })
}

# Run the application
shinyApp(ui = ui, server = server)