Nuevo aquí y relativamente nuevo en R también, así que por favor, perdona a priori y déjame saber qué estoy haciendo mal en esta publicación para evitar molestar a otros en el futuro:

Estoy tratando de crear una secuencia (septiembre de 1971 a abril de 1972) de mapas de folletos. Al final, me gustaría convertirlos en brillantes y hacer que un usuario reproduzca / pause una animación (control deslizante de animación de bucle brillante).

No, mientras que para bucles funcionó para mí. Los incrementos habían funcionado cuando revisé miis después de ejecutar el código, el folleto no funciona. Sin el bucle, mi "Fallo de folleto dinámico" (ver más abajo en la sección de código) funcionó y abrió un mapa.

¿No es posible crear folletos secuencialmente?

#set working directory
require(leaflet)
require(dplyr)

#Build data.frame with 10 obs + 3 cols
power <- data.frame(Latitude <-c(33.515556, 38.060556, 47.903056, 49.71, 49.041667, 31.934167, 54.140586, 54.140586, 48.494444, 48.494444), Longitude <- c(
129.837222, -77.789444, 7.563056, 8.415278, 9.175, -82.343889, 13.664422, 13.664422, 17.681944, 17.681944), start <- c(as.Date(
"15-Sep-1971", "1-Dec-1971", "1-Feb-1972", "1-Feb-1972", "1-Feb-1972", "1-Feb-1972", "1-Apr-1972", "1-Apr-1972", "24-Apr-1972", "24-Apr-1972", format = "%d-%b-%Y")))

#"Dynamic" leaflet Fails1: While+For combo
i<- as.Date("1971-09-14")
while (i < as.Date("1972-05-01")) {    for(star in start){
if (star > i) {
leaflet(power) %>% addTiles() %>%
  addCircleMarkers(lng = ~Longitude, lat = ~Latitude)
}}
i <- i+60}

#"Dynamic" leaflet Fails2: For+break combo
lap <- seq(as.Date("1971-09-14"), as.Date("1972-05-01"), by = "month")
for(i in lap) {
leaflet (data = power[power$start > i,]) %>%
addTiles() %>%
addCircleMarkers(lng = ~Longitude, lat = ~Latitude)  
if (i > as.Date("1951-01-01")) 
{      break }}