data-raw/diagram.R

In karissawhiting/cbioportalR: Browse and Query Clinical and Genomic Data from cBioPortal

#install.packages("DiagrammeR")
library(DiagrammeR)

tmp <- grViz(diagram = "digraph flowchart {

      # define node aesthetics
      node [fontname = Arial, shape = rectangle,
        color = BlueViolet,
        style = filled,
        fontcolor = White]
      tab1 [label = '@@1']

      node [fontname = Arial, shape = rectangle,
        color = SlateBlue,
        style = filled,
        fontcolor = White]
      tab2 [label = '@@2']

      node [fontname = Arial, shape = rectangle,
        color = DodgerBlue,
        style = filled,
        fontcolor = White]
      tab3 [label = '@@3']


      node [fontname = Arial, shape = rectangle,
        color = DodgerBlue,
        style = filled,
        fontcolor = White]
      tab4 [label = '@@4']

      node [fontname = Arial, shape = rectangle,
        color = LightSeaGreen,
        style = filled,
        fontcolor = White]
      tab5 [label = '@@5']

      node [fontname = Arial, shape = rectangle,
        color = LightSeaGreen,
        style = filled,
        fontcolor = White]
      tab6 [label = '@@6']

      node [fontname = Arial, shape = rectangle,
        color = LightSeaGreen,
        style = filled,
        fontcolor = White]
      tab7 [label = '@@7']

      node [fontname = Arial, shape = rectangle,
        color = SandyBrown,
        style = filled,
        width = 4,
        height = .5,
        fontcolor = White]
      tab8 [label = '@@8']

# set up node layout
      tab1 -> tab2;
      tab2 -> tab3;
      tab2 -> tab4;
      tab4 -> tab5;
      tab4 -> tab6;
      tab4 -> tab7;
      tab5 -> tab8;
      tab6 -> tab8;
      tab7 -> tab8;
      tab3 -> tab8;
}

      [1]: 'cBioPortal Database'
      [2]: 'Studies'
      [3]: 'Clinical Data'
      [4]: 'Molecular Profiles'
      [5]: 'Mutations'
      [6]: 'Fusions'
      [7]: 'CNA'
      [8]: 'Patients & Samples'
      ")

# 2. Convert to SVG, then save as png
tmp = DiagrammeRsvg::export_svg(tmp)
tmp2 = charToRaw(tmp) # flatten
rsvg::rsvg_png(tmp2, here::here("man", "figures", "cbp-diagram.png"),
               width = 750, height = 750)

cat(tmp, file = "./man/figures/svg-cbp-diagram.svg")