# NOT RUN {
nodes <- sg_make_nodes(50)
nodes$batch <- c(
rep(1000, 25),
rep(3000, 25)
)
edges <- data.frame(
id = 1:80,
source = c(
sample(1:25, 40, replace = TRUE),
sample(1:50, 40, replace = TRUE)
),
target = c(
sample(1:25, 40, replace = TRUE),
sample(1:50, 40, replace = TRUE)
),
batch = c(
rep(1000, 40),
rep(3000, 40)
)
) %>%
dplyr::mutate_all(as.character)
sigmajs() %>%
sg_force_start() %>%
sg_read_nodes(nodes, id, label, color, size, delay = batch) %>%
sg_read_edges(edges, id, source, target, delay = batch) %>%
sg_force_stop(4000) %>%
sg_read_exec() %>%
sg_button("read_exec", "Add nodes & edges")
# }
Run the code above in your browser using DataLab