InteractiveIGraph (version 1.0.6.1)

AdjustmentFunctions: Adjustment Functions

Description

Special functions that control the behaviour of InteractiveIGraph.

Usage

PlotAdjustment.default(g)
ExtraInfo.default(type="V", ProgId=0, g=g)
BottomMenuAdjustment.default(g)

Arguments

g

an object of the class InteractiveIGraph.

type

the type of active object. Might be "V", "E", "G".

ProgId

The id of the active object.

Value

Adjustment functions must return an object of the class InteractiveIGraph.

Details

The user may create its own functions and replace the default funcions to change the behavor of the InteractiveIGraph. See examples.

See Also

InteractiveIGraph

Examples

gOrg <- erdos.renyi.game(15, 1/10,  directed = TRUE)
V(gOrg)$comment = paste("Some comment about vertex with number:", V(gOrg)) 


ExtraInfo.New <- function(type="V", ProgId=0, g=g){  
msg = ""
  
  if(type=="V"){  
    vid = which(V(g)$ProgId == ProgId)
    msg = paste(",", V(g)[vid]$comment)
  }
  if(type=="E"){
    msg = ", E..."    
  }
  if(type=="G"){
    msg = ", G..."    
  }
    
  Item = list(list(label=msg, RegionParams=list(XBufCof = 0, YBufCof=0.2), 
			RecParams=list(lwd = NA, border=NA), TextParams=list(cex=0.8)))
  g <- MenuAddItems(Items=Item,  MenuLine='Info', g=g)  
  
  return(g)
}

if(interactive()){
  g = InteractiveIGraph(gOrg, ExtraInfo=ExtraInfo.New)
}