# NOT RUN {
library(shiny)
nodes <- sg_make_nodes()
edges <- sg_make_edges(nodes)
ui <- fluidPage(
actionButton("start", "Trigger layout"), # add the button
sigmajsOutput("sg"),
verbatimTextOutput("txt")
)
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_get_nodes_p()
})
output$txt <- renderPrint({
input$sg_nodes
})
}
if(interactive()) shinyApp(ui, server) # run
# }
Run the code above in your browser using DataLab