问题描述
我在 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)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)