require(shiny)
require(leaflet)
shinyServer(function(input, output) {
points <- eventReactive(input$recalc, {
cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
}, ignoreNULL = FALSE)
output$mymap <- renderLeaflet({
leaflet() %>%
addProviderTiles("Stamen.TonerLite",
options = providerTileOptions(noWrap = TRUE)
) %>%
addMarkers(data = points())
})
})
# shinyServer(function(input, output){
#
# # factor out code common to all functions.
# species2 <- reactive({
# strsplit(input$spec, ",")[[1]]
# })
#
# occur_data <- reactive({
# rcharts_prep1(sppchar = input$spec, occurrs = input$numocc, datasource = input$datasource)
# })
#
# rcharts_data <- reactive({
# rcharts_prep2(occur_data(), palette_name = get_palette(input$palette), popup = TRUE)
# })
#
# output$map_leaflet <- renderMap({
# imap = gbifmap2(input = rcharts_data(), input$provider)
# imap$legend(
# position = 'bottomright',
# colors = get_colors(species2(), get_palette(input$palette)),
# labels = species2()
# )
# imap
# })
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.