sigmajs (version 0.1.3)

sg_button: Buttons

Description

Add buttons to your graph.

Usage

sg_button(sg, event, ..., position = "top", class = "btn btn-default",
  tag = htmltools::tags$button, id = NULL)

Arguments

sg

An object of class sigmajsas intatiated by sigmajs.

event

Event the button triggers, see valid events.

...

Content of the button, complient with htmltools.

position

Position of button, top or bottom.

class

Button CSS class, see note.

tag

A Valid tags function.

id

A valid CSS id.

Events

• force_start

• force_stop

• noverlap

• drag_nodes

• relative_size

• add_nodes

• add_edges

• drop_nodes

• drop_edges

• animate

• export_svg

• export_img

• progress

• read_exec

Details

You can pass multiple events as a vector, see examples. You can also pass multiple buttons.

Examples

# NOT RUN {
nodes <- sg_make_nodes() 
edges <- sg_make_edges(nodes)

# Button starts the layout and stops it after 3 seconds
sigmajs() %>% 
  sg_nodes(nodes, id, size) %>% 
  sg_edges(edges, id, source, target) %>% 
  sg_force_start() %>% 
  sg_force_stop(3000) %>% 
  sg_button(c("force_start", "force_stop"), "start layout")
  
# additional nodes
nodes2 <- sg_make_nodes()
nodes2$id <- as.character(seq(11, 20))

# add delay
nodes2$delay <- runif(nrow(nodes2), 500, 1000)

sigmajs() %>%
  sg_nodes(nodes, id, label, size, color) %>%
  sg_add_nodes(nodes2, delay, id, label, size, color) %>% 
  sg_force_start() %>% 
  sg_force_stop(3000) %>% 
  sg_button(c("force_start", "force_stop"), "start layout") %>% 
  sg_button("add_nodes", "add nodes")

# }

Run the code above in your browser using DataCamp Workspace