R/createLionessStyle.R

In twangxxx/netZoo_devel: Integrate methods: PANDA, LIONESS, CONDOR, ALPACA into one workflow.

  
  ccreateLionessStyle <- function(style.name="LionessStyle"){
    
    # node properties
    nodeShape <- mapVisualProperty('node shape','group','d',c("TF","Gene"),c("ELLIPSE","RECTANGLE"))
    nodeColor <- mapVisualProperty('node fill color', 'group','d', c("TF","Gene"), c('#FD7622', '#499df3'))
    nodeBorderColor <- mapVisualProperty("Node Border Paint", 'group', 'd', c("TF","Gene"), c('#FD7622', '#499df3'))
    nodeLabel <- mapVisualProperty("node label","id",'p')
    
    # edge properties
    # edgeLineType <- mapVisualProperty('edge line type','interaction','d',c("1","0"), c("SOLID","LONG_DASH"))
    edgeTargetArrowShape <- mapVisualProperty("edge target arrow shape",'interaction','d',c(0,1),c("DELTA","DELTA"))
    edgeTargetArrowUnSelectedPaint <- mapVisualProperty("Edge Target Arrow Unselected Paint","cond.",'d',c(1,0), c('#92278f', '#60bf71'))
    # edge width and edge color shade both represent the edge weight.
    edgeWidth <- mapVisualProperty("edge width", "weight_transformed",'c', c(0,10000), c(0.5,7))
    edgeStrokeUnselectedPaint <- mapVisualProperty('Edge Stroke Unselected Paint',"cond.",'d',c(1,0), c('#92278f', '#60bf71'))
    
    # default setting
    defaults <- list(NODE_SIZE=50,
                     EDGE_TRANSPARENCY=255,
                     NODE_LABEL_POSITION="center")
    # create visual style working for PANDA network
    createVisualStyle(style.name,defaults,list(nodeShape, nodeColor, nodeBorderColor,nodeLabel,
                                                edgeTargetArrowShape, edgeTargetArrowUnSelectedPaint,
                                               edgeWidth, edgeStrokeUnselectedPaint))
    
  }