r - 如何将 forceNetwork {networkD3} 保持在 Shiny 应用程序的中心？

Question

在构建一个显示 forceNetwork 图形的 Shiny 应用程序时，网络不会保持居中，而是会在交互式更改不透明度时移出视野。

我的问题是，如何改变这种行为并保持网络像最初一样很好地居中？

一个可重现的例子：

ui.R:

library(shiny)
library(networkD3)

shinyUI(fluidPage( 

      titlePanel("ForceNetD3"), 

      sidebarLayout(
            sidebarPanel(
               sliderInput("opacity",
                      "Opacity",
                       min = 0.1,
                       max = 1,
                       value = 0.4)
      ),
      mainPanel(
            forceNetworkOutput(outputId = "net")
      )
)))

服务器.R：

library(shiny)
library(networkD3)

shinyServer(function(input, output) {

       # Load data
       data(MisLinks)
       data(MisNodes)      

       output$net <- renderForceNetwork(forceNetwork(
                          Links  = MisLinks, Nodes   = MisNodes,
                          Source = "source", Target  = "target",
                          Value  = "value",  NodeID  = "name",
                          Group  = "group",  opacity = input$opacity))
})

图片中的行为：

Annndd...它消失了：

Answer 1

问题是 d3.force() 中的计时器快用完了，并且在输入新值时它没有“重新加热”。在不更改 networkD3 的情况下，您可以通过colourScale = JS('force.alpha(1); force.restart(); d3.scaleOrdinal(d3.schemeCategory20);')在函数中添加参数来破解它forceNetwork()。所以你会server.R...

library(shiny)
library(networkD3)

shinyServer(function(input, output) {

       # Load data
       data(MisLinks)
       data(MisNodes)      

       output$net <- renderForceNetwork(forceNetwork(
                          Links  = MisLinks, Nodes   = MisNodes,
                          Source = "source", Target  = "target",
                          Value  = "value",  NodeID  = "name",
                          Group  = "group",  opacity = input$opacity,
                          colourScale = JS('force.alpha(1); force.restart(); d3.scaleOrdinal(d3.schemeCategory20);')))
})

更新（2017.03.20）

此问题已在 networkD3 的最新发布版本（0.4）中得到解决，并且 OP 要求的是默认行为。