How to keep a forceNetwork {networkD3} centered in a Shiny app?

Question

While building a Shiny app that displays a forceNetwork graph, the network does not stay centered but moves out of view when one interactively changes the opacity.

My qu

Answer 1

The problem is that the timer in d3.force() is running out, and it isn't "reheated" when new values are input. Without changes to networkD3, you can hack this to work by adding colourScale = JS('force.alpha(1); force.restart(); d3.scaleOrdinal(d3.schemeCategory20);') to your arguments in your forceNetwork() function. So you would have for 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.03.20)

This issue has been resolved in the most recent released version (0.4) of networkD3, and what the OP is asking for is the default behavior.