visConfigure {visNetwork} | R Documentation

## 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:

    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)

    ## End(Not run)

[Package visNetwork version 2.0.1 Index]