MenuAddItems: Adjustment Functions

Description Usage Arguments Details See Also Examples

Description

An internal function that helps to control bottom menu items.

Usage

1
MenuAddItems(Items, MenuLine='Info', g=g)

Arguments

g

an object of the class InteractiveIGraph.

MenuLine

the string that correspond to the bottom menu line ("Info", "A", "G", "Log")

Items

The list with menu iltem structure.

Details

Just add an item to the menu.

See Also

CommandList, Adjustment Functions.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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){  # taisytina  
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)
}

InteractiveIGraph documentation built on May 2, 2019, 2:08 a.m.