如何在没有查看者干预的情况下开始和停止除外启用连续的重新循环R传单overlayGroup状态？

编程问答 2022-08-13

问题描述

在以下代码中，我想要一个控制按钮来启动和停止以下事件：

  1. 关闭所有overlayGroup，
  2. 然后打开第一个overlayGroup 1秒钟
  3. 然后关闭所有overlayGroup 1秒钟
  4. 然后打开第二个overlayGroup 1秒钟
  5. 循环直到停止。
library(leaflet)
icon.Union <- makeAwesomeIcon(icon = "chevron-down",markerColor = "lightblue",iconColor="#FFFF33",library = "fa")
icon.Confederacy <- makeAwesomeIcon(icon = "chevron-down",markerColor = "lightgray",iconColor="#FFFFFF",library = "fa")
lng = -98.5795;lat = 39.8283
leaflet() %>% 
            addTiles(group = "OSM") %>%
            setView(lng,lat,zoom = 4.0) %>%
addAwesomeMarkers(
                 lng = -77.23667,lat = 39.80861,label = "Gettysburg,PA",group = "Union",icon = icon.Union) %>%
addAwesomeMarkers(
         lng = -88.32183,lat = 35.15068,label = "Shiloh,TN",icon = icon.Union) %>%
addAwesomeMarkers(
            lng = -79.8747,lat = 32.7523,label = "Fort Sumter",group = "Confederacy",icon = icon.Confederacy) %>%       
addLayersControl(baseGroups="OSM",overlayGroups = c("Union","Confederacy"),options= layersControlOptions(collapsed=TRUE))

我想避免要求重复单击单选按钮来完成此操作。 任何建议将不胜感激。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

leafletrrr-leaflet