r - 如何使 forceNetwork {networkD3} 以 Shiny 应用程序为中心？

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

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

一个可重现的例子:

用户界面:

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...它不见了:

最佳答案

问题是 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 要求的是默认行为。