sg_events: Events

Description Usage Arguments Details Value See Also Examples

View source: R/events.R

Description

Get events server-side.

Usage

1
sg_events(sg, events)

Arguments

sg

An object of class sigmajsas intatiated by sigmajs.

events

A vector of valid events (see section below).

Details

Events: Valid events to pass to events.

Value

An object of class htmlwidget which renders the visualisation on print.

See Also

official documentation.

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
library(shiny)

nodes <- sg_make_nodes()
edges <- sg_make_edges(nodes)

ui <- fluidPage(
  sigmajsOutput("sg"),
  p("Click on a node"),
  verbatimTextOutput("clicked")
) 

server <- function(input, output){
  output$sg <- renderSigmajs({
    sigmajs() %>%
      sg_nodes(nodes, id, size, color) %>%
      sg_edges(edges, id, source, target) %>% 
      sg_events("clickNode")
  })

# capture node clicked
output$clicked <- renderPrint({
    input$sg_click_node
  })
}

## Not run: shinyApp(ui, server)

sigmajs documentation built on July 8, 2020, 5:16 p.m.