read-batch {sigmajs} | R Documentation |
Batch read
Description
Read nodes and edges by batch with a delay.
Usage
sg_read_delay_nodes_p(proxy, data, ..., delay)
sg_read_delay_edges_p(proxy, data, ..., delay)
sg_read_delay_exec_p(proxy, refresh = TRUE)
Arguments
proxy |
An object of class |
data |
A |
... |
any column. |
delay |
Column name of containing batch identifier. |
refresh |
Whether to refresh the graph after each batch ( |
Details
Add nodes and edges with sg_read_delay_nodes_p
and sg_read_delay_edges_p
then execute (send to JavaScript end) with sg_read_delay_exec_p
.
Value
The proxy
object.
Examples
library(shiny)
ui <- fluidPage(
actionButton("add", "add nodes & edges"),
sigmajsOutput("sg")
)
server <- function(input, output, session){
output$sg <- renderSigmajs({
sigmajs()
})
observeEvent(input$add, {
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)
sigmajsProxy("sg") %>%
sg_force_start_p() %>%
sg_read_delay_nodes_p(nodes, id, color, label, size, delay = batch) %>%
sg_read_delay_edges_p(edges, id, source, target, delay = batch) %>%
sg_read_delay_exec_p() %>%
sg_force_stop_p()
})
}
if(interactive()) shinyApp(ui, server)
[Package sigmajs version 0.1.5 Index]