Shiny 在可拖动的发光面板中平移传单地图或绘图也会移动面板

在可拖动的发光面板（例如，可拖动=T的absolutePanel）内使用传单贴图时，使用鼠标平移传单贴图也会拖动发光面板

有没有办法防止用鼠标平移地图时也移动闪亮的面板

我认为这与已解决的问题类似：

在传单中还有与点击传播相关的DOM事件函数

编辑： 这也发生在绘图仪上，可能是一个比我最初意识到的更普遍的问题。该问题已被编辑成包含有情节的内容

单张示例：

图书馆（传单）
图书馆（闪亮）
shinyApp(
ui=fluidPage(
绝对面板（可拖动=T，宽度='600px'，井面板(
fluidRow（传单输出（'map'））
))
),
服务器=功能（输入、输出、会话）{
输出$map=renderleaft({
传单（）%>%
addProviderTiles（提供程序$OpenStreetMap）
}) 
}
)

在传单中将“拖动”选项设置为“F”可以解决此问题，但会降低地图的实用性

shinyApp(
ui=fluidPage(
绝对面板（可拖动=T，宽度=600px'，井面板(
fluidRow（传单输出（'map'））
))
),
服务器=功能（输入、输出、会话）{
输出$map=renderleaft({
传单（选项=传单选项（拖动=F））%>%
addProviderTiles（提供程序$OpenStreetMap）
}) 
}
)

生动的例子 缩放、平移和选择打印交互都会导致可拖动面板移动

library（plotly）
图书馆（闪亮）
shinyApp(
ui=fluidPage(
绝对面板（可拖动=T，宽度=600px'，井面板(
fluidRow（绘图输出（“绘图”））
))
),
服务器=功能（输入、输出、会话）{
输出$plot=renderpltly({
绘图（数据=mtcars，类型='scatter'，模式='markers'，x=~hp，y=~mpg，name=~cyl）
})
}
)