inst/shiny/server.R

In kdaily/shinyPathway: Visualize Pathway Commons Pathways with Shiny

server <- function(input, output) { 
  output$plot <- renderRcytoscapejs({
    cyNetwork <- createCytoscapeJsNetwork(nodeData, edgeData)
    rcytoscapejs(nodeEntries=cyNetwork$nodes, edgeEntries=cyNetwork$edges)
  })
  
}