Não é possível fazer loop com o pacote de folhetos de R para produzir vários mapas

Novo aqui e relativamente novo para R também, portanto, perdoe apriori e deixe-me saber o que estou fazendo de errado neste post para evitar incomodar outras pessoas no futuro:

Estou tentando criar uma sequência (set-1971 a abr-1972) de mapas de folhetos. No final, eu gostaria de transformá-los em brilhantes e fazer com que um usuário reproduza / pause uma animação (controle deslizante de animação em loop brilhante).

Nenhum tempo e para loops funcionou para mim. Os incrementos funcionaram quando eu verifiquei meuis depois de executar o código, o folheto não funciona. Sem o loop, meu "Dynamic Leaflet Fails" (veja abaixo na seção de código) funcionou e abriu um mapa.

Não é possível criar folhetos sequencialmente?

#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 }}

questionAnswers(2)

yourAnswerToTheQuestion