传单和闪亮的R形圆圈不'；当我更改平铺层时，不显示map$addCircle

我有一些代码，允许我使用传单和Shining for R更改瓷砖层。当我尝试使用传单添加圆功能添加圆时，圆不会出现在输出的地图上。没有错误，因为圆圈不再出现。我想能够添加相同的圆圈，以所有的瓷砖层，因为我调制他们。我已经附加了ui和服务器代码。非常感谢你的帮助

ui.R：

库（闪亮）；图书馆（单张）
shinyUI（导航栏页面（“切换地图”），
选项卡面板（“地图”，
div（class=“outer”，标记$head（包括styles.css），
htmlOutput（“mapp”，inline=TRUE）），
绝对面板（顶部=60，左侧=自动，右侧=20，底部=自动），
选择输入（“mapPick”，“Background Map”，c（“OpenStreetMap”=“http://{s}.tile.OpenStreetMap.org/{z}/{x}/{y}.png”，
“MapQuestOpen.天线”=”http://oatile3.mqcdn.com/tiles/1.0.0/sat/{z} /{x}/{y}.jpg”），
所选=c（“http://oatile3.mqcdn.com/tiles/1.0.0/sat/{z} /{x}/{y}.jpg“()()())
服务器.R:
图书馆（闪亮）；图书馆（单张）
shinyServer（功能（输入、输出、会话）{
output$map1这是一个使用
addLayersControl

library(leaflet)
dat <- data.frame(lon = c(0, 0), lat = c(0, 1))
leaflet() %>%
  addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png", group = "OpenStreetMap") %>%
  addTiles(urlTemplate = "http://oatile3.mqcdn.com/tiles/1.0.0/sat/{z}/{x}/{y}.jpg", group = "MapQuestOpen.Aerial") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addLayersControl(baseGroups = c("OpenStreetMap", "MapQuestOpen.Aerial", "Stamen"), options = layersControlOptions(collapsed = FALSE)) %>%
  addCircles(data = dat, lat = ~lat, lng = ~lon, radius = 1e5)

图书馆（传单）
dat%
addTiles（urlTemplate=“http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png”，group=“openstreetmap”）%%>%
addTiles（URL模板=”http://oatile3.mqcdn.com/tiles/1.0.0/sat/{z} /{x}/{y}.jpg”，group=“MapQuestOpen.aeriar”）%%>%
addProviderTiles（提供者$Stamen，group=“Stamen”）%>%
addLayersControl（baseGroups=c（“OpenStreetMap”、“MapQuestOpen.Aeror”、“Stamen”），options=layersControlOptions（colladed=FALSE））%>%
添加圆（数据=dat，纬度=~lat，lng=~lon，半径=1e5）

但是，您提供的MapQuest互动程序服务器URL去年似乎停止工作


library(leaflet)
dat <- data.frame(lon = c(0, 0), lat = c(0, 1))
leaflet() %>%
  addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png", group = "OpenStreetMap") %>%
  addTiles(urlTemplate = "http://oatile3.mqcdn.com/tiles/1.0.0/sat/{z}/{x}/{y}.jpg", group = "MapQuestOpen.Aerial") %>%
  addProviderTiles(providers$Stamen, group = "Stamen") %>%
  addLayersControl(baseGroups = c("OpenStreetMap", "MapQuestOpen.Aerial", "Stamen"), options = layersControlOptions(collapsed = FALSE)) %>%
  addCircles(data = dat, lat = ~lat, lng = ~lon, radius = 1e5)