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") 
    ) 
))) 

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)) 
}) 

写真の中の行動：

Annndd ..それがなくなった：

Answer 1

問題がd3.forceでタイマーが（）を実行していることで、新しい値が入力された場合には、「再加熱」されていません。 networkD3に変更を加えなければ、forceNetwork()関数の引数にcolourScale = JS('force.alpha(1); force.restart(); d3.scaleOrdinal(d3.schemeCategory20);')を追加することで、これをハックすることができます。だから、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);'))) 
}) 

UPDATE（2017年3月20日）

この問題はnetworkD3の最新リリースバージョン（0.4）で解決されていて、どのようなOPがあるためだろう求めているのはデフォルトの動作です。