Nothing
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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.