Новое здесь и относительно новое для R, поэтому, пожалуйста, простите apriori и дайте мне знать, что я делаю неправильно в этом посте, чтобы не раздражать других в будущем:

Я пытаюсь создать последовательность (с сентября 1971 года по апрель 1972 года) карт листовок. В конце я хотел бы превратить их в блестящие и сделать так, чтобы пользователь воспроизводил / приостанавливал анимацию (слайдер блестящей циклической анимации).

Нет, пока и для петли у меня не сработало. Приращения работали, когда я проверял свойiПосле запуска кода листовка не работает. Без цикла мои «Динамические ошибки листовки» (см. Ниже в разделе кода) сработали и открыли карту.

Разве нельзя создавать листовки последовательно?

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