visNetwork (version 2.0.1)

visConfigure: Network visualization configure options

Description

Network visualization configure options. For full documentation, have a look at visDocumentation.

Usage

visConfigure(graph, enabled = NULL, filter = NULL, container = NULL,
  showButton = NULL)

Arguments

graph

: a visNetwork object

enabled

: Boolean. Default to true. Toggle the configuration interface on or off. This is an optional parameter. If left undefined and any of the other properties of this object are defined, this will be set to true.

filter

: String, Array, Boolean, Function. Default to true. When a boolean, true gives you all options, false will not show any. If a string is supplied, any combination of the following is allowed: nodes, edges, layout, interaction, manipulation, physics, selection, renderer. Feel free to come up with a fun seperating character. Finally, when supplied an array of strings, any of the previously mentioned fields are accepted.

container

: DOM element. This allows you to put the configure list in another HTML container than below the network.

showButton

: Boolean. Default to true. Show the generate options button at the bottom of the configurator.

References

See online documentation http://datastorm-open.github.io/visNetwork/

See Also

visNodes for nodes options, visEdges for edges options, visGroups for groups options, visLegend for adding legend, visOptions for custom option, visLayout & visHierarchicalLayout for layout, visPhysics for control physics, visInteraction for interaction, visNetworkProxy & visFocus & visFit for animation within shiny, visDocumentation, visEvents, visConfigure ...

Examples

# NOT RUN {
# }
# NOT RUN {
nodes <- data.frame(id = 1:3, title = paste0("<p>", 1:3,"<br> tooltip</p>"))
edges <- data.frame(from = c(1,2), to = c(1,3))

# don't look in RStudio viewer
visNetwork(nodes, edges) %>%
 visConfigure(enabled = TRUE, filter = "interaction")
 
# shiny
# Define UI
ui <- shinyUI(fluidPage(
  fluidRow(column(4, div(id = "config")), 
           column(8,visNetworkOutput("network"))
  )
))

# Define SERVER
server <- shinyServer(function(input, output) {
  
  output$network <- renderVisNetwork({
    nodes <- data.frame(id = 1:15, label = paste("Label", 1:15),
                        group = sample(LETTERS[1:3], 15, replace = TRUE))
    
    edges <- data.frame(from = trunc(runif(15)*(15-1))+1,
                        to = trunc(runif(15)*(15-1))+1)
    
    visNetwork(nodes, edges) %>% visConfigure(enabled = TRUE, container = "config")
  })
})

# Run the application 
shinyApp(ui = ui, server = server)  
 
# }
# NOT RUN {
# }