R/NodeColor.R

In komorowskilab/VisuNet: An interactive tool for network visualization of rule-based models in R

NodeColor = function(nodes, NodeColor){
  if(NodeColor == 'A'){
    names(nodes)[names(nodes) == 'color.backgroundAcc'] <- 'color.background'
  }  else if(NodeColor == 'GE') {
    names(nodes)[names(nodes) == 'color.backgroundGE'] <- 'color.background'
  }
  return(nodes)
}