Map using data works

  output$map <- renderLeaflet({

    print("MAP wird aufgerufen")

    data <- as.numeric(coconut.df[[input$map_data]])

     max_data<- max(data)

     print("MAX DATA")

     print(max_data)

    max_data<<- max(data)

    c<-1

    for(c in 1:length(data)){

       data[c]<-(data[c]/max_data)*5

      data[c]<-(data[c]/max_data)*10

    }

     print(data)

    m <<- leaflet()

    colorData <-

      cut(

        data,

        c(0, 2, 5, 7, 10),

        include.lowest = T,

        lables = c('<2', '<5', '<7', '<10')

      )

    print("colorData")

    print(colorData)

    colorGrad <- colorFactor('RdYlGn', colorData) 

    print("colorGrad")

    print(colorGrad(colorData))

    m <- leaflet()

    x=1

    m <- addTiles(m)

    for(x in 1:length(coconut.df$gps.latitude)){

      m <- addCircleMarkers(m,lng=as.numeric(coconut.df$gps.longitude[x]), lat=as.numeric(coconut.df$gps.latitude[x]), radius = data[x], color ="red") #addPolylines does not work

      x=x+1}

    m<-addCircleMarkers(m,lng=as.numeric(coconut.df$gps.longitude), lat=as.numeric(coconut.df$gps.latitude), radius = data, color = colorGrad(colorData)) #addPolylines does not work

    m<-addLegend(m, 'bottomright', pal=colorGrad, values=colorData, title=' ',opacity=1)

    m

  })