first try map

library(DT)

library(webshot)

library(knitr)

library(leaflet)

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}

            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)

            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,{