first try map

dashboard/server.R

@@ -4,6 +4,7 @@ library(jsonlite)
 library(DT)
 library(webshot)
 library(knitr)
+library(leaflet)
 
 
 server <- function(input, output, session) {
@@ -34,12 +35,13 @@ server <- function(input, output, session) {
     json_data_coco <- fromJSON(paste(inFile$datapath, sep = ""), flatten = TRUE)
     coconut.df <<- json_data_coco[["data"]]
     
+    
     lastCoConUT <<- inFile$name
     print("coconut:")
 
     #coconut.df$timestamp <- format(coconut.df$timestamp, format="%d-%B-%Y %H:%M:%S")
     
-    print(coconut.df$timestamp)
+    print(coconut.df)
     if(is.null(coconut.df$timestamp)){}
     else{unixTime<<-coconut.df$timestamp}
     
@@ -279,9 +281,20 @@ server <- function(input, output, session) {
             status= "warning",
             solidHeader = TRUE,
             collapsible = TRUE,
-            plotOutput("plot1", height = 250))
+            plotOutput("map", height = 250))
+  })
+  
+  output$map <- renderPlot({
+    m <- leaflet()
+    x=1
+    m <- addTiles(m)
+    for(x in 1:length(coconut.df)){
+      m <- addMarkers(m,lng=in5[x], lat=in6[x]) #addPolylines does not work
+      x=x+1}
+    m
   })
   
+  
   #LINEGRAPH
   output$line_box <- renderUI({
     if(input$check_line)
@@ -292,6 +305,27 @@ server <- function(input, output, session) {
             plotOutput("plot1", height = 250))
   })
   
+  # MAP
+ 
+  
+  
+  
+  #function connectTheDots(data){
+  #   c = []
+  #  for(i in data._layers) {
+  #     x = data._layers[i]._latlng.lat;
+  #    y = data._layers[i]._latlng.lng;
+  #   c.push([x, y]);
+  #}
+  #return c
+  #}
+  
+  #pathCoords = connectTheDots(window.geojson);
+  #pathLine = L.polyline(pathCoords).addTo(m)
+  
+  
+  
+  
   #DownloadButton
   #TODO: MAKE IT WORK!
   observeEvent(input$screenshot,{