# NOT RUN {
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)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab