Como manter uma forceNetwork {networkD3} centralizada em um aplicativo Shiny?
Ao criar um aplicativo Shiny que exibe um gráfico forceNetwork, a rede não fica centralizada, mas se perde de vista quando alguém altera interativamente a opacidade.
Minha pergunta é: como mudar esse comportamento e manter a rede centralizada como era inicialmente?
Um exemplo reproduzível:
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))
})
O comportamento nas imagens:
