dash-cytoscape.R

library(dash)
library(dashHtmlComponents)
library(dashCytoscape)
library(readr)
library(purrr)
library(dplyr)

app <- Dash$new()

nodes <- read_csv("C:/Users/kozon/Downloads/nodes.csv")
edges <- read_csv("C:/Users/kozon/Downloads/edges.csv")
edges <- rename(edges, source=from)
edges <- rename(edges, target=to)

nodes <- lapply(
  transpose(nodes),
  function(x) {
    return(
      list(
        data=x
      )
    )
  }
)

edges <- lapply(
  transpose(edges),
  function(x) {
    return(
      list(
        data=x
      )
    )
  }
)

app$layout(
  htmlDiv(
    list(
      cytoCytoscape(
        id = 'cytoscape-two-nodes',
        layout = list('name' = 'cose'),
        style = list('width' = '100%', 'height' = '1000px'),
        elements = c(edges,nodes)
      )
    )
  )
)

app$run_server()