inst/UI/argos/Gallinago_media/server.R

In mpio-be/sdbvis: Sdb package extensions

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()  { 
        GMdata(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 ) 






   

  })




})