change: Change

Description Usage Arguments Examples

Description

Change nodes and edges attributes on the fly

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
sg_change_nodes_p(
  proxy,
  data,
  value,
  attribute,
  rate = c("once", "iteration"),
  refresh = TRUE,
  delay = NULL
)

sg_change_edges_p(
  proxy,
  data,
  value,
  attribute,
  rate = c("once", "iteration"),
  refresh = TRUE,
  delay = NULL
)

Arguments

proxy

An object of class sigmajsProxy as returned by sigmajsProxy.

data

data.frame holding delay column.

value

Column containing value.

attribute

Name of attribute to change.

rate

Rate at chich to refresh takes once refreshes once after all values have been changed, and iteration which refreshes at every iteration.

refresh

Whether to refresh the graph after the change is made.

delay

Optional delay in milliseconds before change is applied. If NULL (default), no delay.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
library(shiny)

nodes <- sg_make_nodes()
nodes$new_color <- "red"
edges <- sg_make_edges(nodes)

ui <- fluidPage(
  actionButton("start", "Change color"),
  sigmajsOutput("sg")
)

server <- function(input, output){

  output$sg <- renderSigmajs({
    sigmajs() %>%
      sg_nodes(nodes, id, size, color) %>%
      sg_edges(edges, id, source, target)
  })

  observeEvent(input$start, {
    sigmajsProxy("sg") %>% # use sigmajsProxy!
      sg_change_nodes_p(nodes, new_color, "color")
  })

}

 if (interactive()) shinyApp(ui, server) # run

JohnCoene/sigmajs documentation built on Feb. 1, 2021, 12:12 p.m.