2016-07-25 8 views
0

Ich suchte hoch und niedrig, um die Antwort zu finden, und ich kann nichts damit zusammenhängen finden. Jede Hilfe wird geschätzt, um zu erklären, was diesen Fehler verursacht hat. Danke im Voraus.R Studio For Loop-Fehler. Gesucht hoch und niedrig

tabledata3<-getSQL("SELECT LONGITUDE,LATITUDE,SESSION,asd FROM ABC") 
leaflet(subzone) %>% 
    addTiles() %>% 
    addMarkers(data = tabledata1, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["before"])%>% 
    addMarkers(data = tabledata2, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["after"])%>% 
    for (i in tabledata3$SESSION){ 
    addPolylines(data = tabledata3, lng = ~LONGITUDE, lat = ~LATITUDE, group = ~asd , color = "black", weight = 10) 
    } 

Fehler:

Warning: Error in for: 4 arguments passed to 'for' which requires 3 

die Anweisung herausgegeben, auch versucht hat die volle

for(i in 1:nrow(tabledata3)){ 
method} 

aber ohne vergeblich.

+0

Was macht '%>% am Ende der Schleife? Außerdem sehe ich nicht, dass Sie tatsächlich die Schleifenvariable "i" verwenden ... warum haben Sie sogar eine Schleife? –

+0

Ich entfernte die%>% und der gleiche Fehler ist dort. Ich brauche die Schleife, um mehrere getrennte Polylinien zu zeichnen. Sonst wird die gesamte Koordinate in 1 Zeile verknüpft. –

+0

Ähm, Sorry, aber was sind die 4 Argumente in der Aussage? gibt es nicht nur 3? int i, 1: und Anzahl der Zeilen in tabledata3. –

Antwort

0

hatte ich das gleiche Problem und es funktionierte, als ich um die ganze Flügelfunktion der Schleife setzen:

tabledata3<-getSQL("SELECT LONGITUDE,LATITUDE,SESSION,asd FROM ABC") 

leaflet(subzone) %>% 
     addTiles() %>% 
     addMarkers(data = tabledata1, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["before"])%>% 
     addMarkers(data = tabledata2, lng = ~ LONGITUDE, lat = ~ LATITUDE, popup = ~ S_ID, clusterOptions = markerClusterOptions(), icon = ~markerList["after"]) 

for(i in 1:nrow(tabledata3)){ 
    session_i <- tabledata3$SESSION[i,] 
    leaflet(subzone) %>% 
    addPolylines(data = session_i, lng = ~LONGITUDE, lat = ~LATITUDE, group = ~asd , color = "black", weight = 10) 
    } 

Hoffe, es funktioniert!