@@ -429,11 +444,22 @@ server <- function(input, output, session) {
# MAP VIEW
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)
c<-1
for(cin1:length(data)){
data[c]<-(data[c]/max_data)*5
}
print(data)
m<<-leaflet()
x=1
m<-addTiles(m)
for(xin1:length(coconut.df$gps.latitude)){
m<-addCircleMarkers(m,lng=as.numeric(longitude[x]),lat=as.numeric(latitude[x]),radius=1,color="red")#addPolylines does not work
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