svgPanZoom 阻止与 R/Shiny 中的 visNetwork 交互

如何解决svgPanZoom 阻止与 R/Shiny 中的 visNetwork 交互

我在 R/Shiny 应用程序中使用 svgPanZoom 和 visNetwork，遇到了以下奇怪的行为：

• 在 UI 中的 'visNetworkOutput' 之前使用 'svgPanZoomOutput' 时，与 visNetwork 图表的正确交互是不可能的：例如节点拖动不起作用，因为鼠标点击选择整个画布。
• 反转顺序（在 'svgPanZoomOutput' 之前的'visNetworkOutput'）解决了这个问题，但由于我的应用程序的逻辑，很遗憾这不是合适的解决方案。

欢迎任何帮助理解和解决问题！

请找到随附的非工作配置的最小示例：

library(shiny)
library(visNetwork)
library(svgPanZoom)

server <- function(input,output) {
  
  output$visNetworkChart <- renderVisNetwork({
    nodes <- data.frame(id = 1:3)
    edges <- data.frame(from = c(1,2),to = c(1,3))
    visNetwork(nodes,edges)
  })
  
  output$svgPanZoomChart <- renderSvgPanZoom({
    svg_xml <- '<svg><circle cx="150" cy="100" r="80" fill="green"/></svg>'
    svgPanZoom(svg_xml)
  })
  
}

ui <- fluidPage(
  svgPanZoomOutput("svgPanZoomChart",height = "400px"),visNetworkOutput("visNetworkChart",height = "400px")
)

shinyApp(ui = ui,server = server)