inst/UI/argos/Calidris_melanotos/server.R

shinyServer(function(input, output, session) {

  observe( on.exit( assign('input', reactiveValuesToList(input) , envir = .GlobalEnv)) )

  activeData <- reactivePoll(10000,session,

      checkFunc = function() {
        dbq(user = 'mihai', host = '127.0.0.1',
          q = paste('select count(*) from', paste(db,view,sep = '.' )) )
      },

      valueFunc  = function()  {
        gdata(tagID = input$tagID)
      }



  )


  output$map <- renderLeaflet({
    leaflet()

  })


  observe({

   # DATA
    A = activeData()
    X = A[[1]]
    LL = A[[2]]

    midloc  = X[, .(lng = median(longitude), lat= median(latitude))]


    # MAP
      leafletProxy("map") %>%

      setView(midloc$lng, midloc$lat, zoom = 4) %>%
      addTiles(urlTemplate   = leafletBaseMap(input$mapID)$http) %>%
      clearMarkers() %>%
      clearShapes() %>%

      # addPolygons(data = brange, color = '#a51d88', weight = .5, fillOpacity = 0.2) %>%

      addPolylines(data = LL , weight = 2, color = "black", popup  = LL$pp) %>%

      addCircleMarkers(data = X , lng = X$longitude, lat = X$latitude , radius = 5,
        color = X$col, weight = 1,
          opacity = 0.8, fillColor = X$col, fillOpacity = 0.4, popup  = X$pp )


  })

})
mpio-be/sdbvis documentation built on June 11, 2019, 4:57 p.m.