Shiny 在传单R中单击时圆圈标记闪烁

Shiny 在传单R中单击时圆圈标记闪烁,shiny,r-leaflet,Shiny,R Leaflet,我不能告诉你什么时候,但最近我注意到,当点击时,传单地图上的AddCircles输出似乎闪烁了很多。过渡不是平稳的,以前不是这样的。没有错误,因此很难确定问题所在。第一个映像运行在windows机器上,第二个映像运行在ubuntu/Shining服务器组合机器上。我想知道这是否有区别 随附的两个gif文件很好地解释了这个问题 预期情况:过渡期间没有问题 转型中的问题 正如在后者中非常清楚的那样,圆圈会消失一秒钟,当用户单击圆圈以获得包含一些信息的弹出窗口时,它会重新出现 用于渲染传单地图的R

我不能告诉你什么时候,但最近我注意到,当点击时,传单地图上的AddCircles输出似乎闪烁了很多。过渡不是平稳的,以前不是这样的。没有错误,因此很难确定问题所在。第一个映像运行在windows机器上,第二个映像运行在ubuntu/Shining服务器组合机器上。我想知道这是否有区别

随附的两个gif文件很好地解释了这个问题

预期情况:过渡期间没有问题

转型中的问题

正如在后者中非常清楚的那样,圆圈会消失一秒钟,当用户单击圆圈以获得包含一些信息的弹出窗口时,它会重新出现

用于渲染传单地图的R代码:

输出$map\u V%
addProviderTiles(提供程序$OpenStreetMap.Mapnik
,选项=providerTileOptions(
updateWhenZooming=FALSE,#地图在缩放完成之前不会更新分幅
updateWhenIdle=TRUE#平移时贴图不会加载新分幅
)) %>%
设置视图(lng=80.7781,纬度=7.8731,缩放=9)
}
用于渲染圆的R代码:

proxy(“地图”,数据=绘图数据)%>%
clearShapes()%>%
addCircles(~lon_X,~lat_Y)
,半径=平方米(半径)*30
#,重量=1
,layerId=~CustomerRefListID
,组='CustomerRefListID'
,stroke=FALSE
,fillOpacity=0.4
,fillColor=pal(colorData))%>%
addLegend(“左上角”,pal=pal,value=colorData,title=“Legend”,layerId=“colorLegend”)
用于获取点击点信息的R代码

观察({
传单代理(“地图”)%>%
clearPopups()

事件Try
req(event@YBS我尝试了两种方法,一种是单独尝试,另一种是一起尝试。不幸的是,它们都不起作用。我发现奇怪的是,它没有发生在我的windows机器上,也没有发生在shinyapps.io上,但是,它发生在ubuntu平台上。但是,它不可能是机器的类型,因为另一台机器上有另一个观察点击事件r映射,但不是圆圈,而是小云弹出窗口,它不像圆圈那样闪烁。我没有Ubuntu平台。我猜瞬间
event
为null,因此,语句
if(is.null(event))return()
会在几分之一秒内返回
NULL
,导致圆圈在几分之一秒内消失。如果是这种情况,
req()
应该修复它。当您说使用隔离()时,也许您应该尝试
isolate()
@YBS),我已经在代码中使用了它。您还建议我在哪里使用它?例如,如果您不介意,您能否指定您建议我在哪里使用isolate()?我不确定这是否有帮助:
事件