dashCytoscape Demo for R

app.R

library(dash)
library(dashCytoscape)
library(dashHtmlComponents)

app <- Dash$new()

app$layout(
  cytoCytoscape(
  id='cytoscape-elements-boolean',
  layout = list(name = 'preset'),
  style = list(width = '100%', height = '400px'),
  elements=list(
    list(
      data = list(id = 'one', label = 'Locked'),
      position = list(x = 75, y = 75),
      locked = TRUE
    ),
    list(
      data = list(id = 'two', label = 'Selected'),
      position = list(x = 75, y = 200),
      selected = TRUE
    ),
    list(
      data = list(id = 'three', label = 'Not Selectable'),
      position = list(x = 200, y = 75),
      selectable = FALSE
    ),
    list(
      data = list(id = 'four', label = 'Not Grabbable'),
      position = list(x = 200, y = 200),
      grabbable = FALSE
    ),
    list(
      data = list(source = 'one', target = 'two')
      ),
    list(
      data = list(source = 'two', target = 'three')
    ),
    list(
      data = list(source = 'three', target = 'four')      
    ),
    list(
      data = list(source = 'two', target = 'four')
    )
  )
  )
)

app$run_server()

Julia version: https://gist.github.com/rpkyle/230086c112da16ea3118a7c04e69717a
Python version: https://gist.github.com/rpkyle/d9e31ce7a5c43baa766679064011f6a3