¿Cómo mantener una forceNetwork {networkD3} centrada en una aplicación Shiny?
Mientras crea una aplicación Shiny que muestra un gráfico forceNetwork, la red no permanece centrada, sino que se aleja de la vista cuando uno cambia la opacidad de forma interactiva.
Mi pregunta es, ¿cómo cambiar este comportamiento y mantener la red bien centrada como estaba inicialmente?
Un ejemplo reproducible:
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")
)
)))
servidor.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))
})
El comportamiento en imágenes:
