loops in leaflet R

Asked by At

I want to make a loop to add polygons to a leaflet map according to different columns of a data frame.

for (i in 18:22)
createMap = lapply(([email protected][,i]),function(x){
data <- [email protected][,i]
nombre <- names([email protected][,i])

pal3 <- leaflet::colorBin("YlOrRd", domain = data, 20, pretty = TRUE)  

m = leaflet(data=concello_wgs84_Datos[1:17 & [email protected][,i] == x], options = leafletOptions(minZoom = 8, maxZoom = 18)) %>%
    addProviderTiles(providers$Esri.WorldImagery) %>% setView(-8.00, 42.80, zoom = 8.3) %>%
    addPolygons(data=datos, 
                fill= TRUE,
                fillColor = ~pal3(data), 
                stroke = FALSE, 
                color = "#0000CD",
                smoothFactor = 0.5,
                opacity = 1.0, 
                fillOpacity = 1,
                weight = 0.5,
                label = ~as.character(datos$CONCELLO),
                labelOptions = labelOptions(noHide = F,
                                            textsize = "7px",
                                            direction = "topright"),
    highlightOptions = highlightOptions(color = "white", 
                                        weight = 1,
                                        bringToFront = TRUE)) %>%
    addCircles(data = coordenadasOAC, 
               lat = ~ coordenadasOAC$LAT, 
               lng = ~ coordenadasOAC$LONG,radius =0.3, 
               color="#CD3333", 
               fillOpacity = 0.8, 
               popup = ~as.character(coordenadasOAC$OAC)) %>%
    addLegend("bottomleft", 
              pal = pal3, 
              values = data,
              title = nombre,
              labFormat = labelFormat(prefix = ""),opacity = 1)})
htmltools::tagList(createMap)

but I have the following error: Error in`[.data.frameĀ“([email protected],i,j,...,drop=False): undefined columns selected. Could you help me?

0 Answers