| sg_events {sigmajs} | R Documentation |
Events
Description
Get events server-side.
Usage
sg_events(sg, events)
Arguments
sg |
An object of class |
events |
A vector of valid events (see section below). |
Details
Events:
Valid events to pass to events.
clickNodeclickNodesclickEdgeclickEdgesclickStagedoubleClickStagerightClickStagedoubleClickNodedoubleClickNodesdoubleClickEdgedoubleClickEdgesrightClickNoderightClickNodesrightClickEdgerightClickEdgeshoverNodehoverNodeshoverEdgehoverEdgesoutNodeoutNodesoutEdgeoutEdges
Value
An object of class htmlwidget which renders the visualisation on print.
See Also
Examples
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)
[Package sigmajs version 0.1.5 Index]