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

写真の動作:

Annddd... なくなってしまいました: