inst/shiny/server.r

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
#   })
#
# })
ropensci/spoccutils documentation built on Sept. 12, 2022, 3:03 p.m.