Running examples in ‘soc.ca-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: add.to.label
> ### Title: Add values to label
> ### Aliases: add.to.label
> 
> ### ** Examples
> 
> example(soc.ca)

soc.ca> data(taste)

soc.ca> # Create a data frame of factors containing all the active variables 
soc.ca> taste          <- taste[which(taste$Isup == 'Active'), ]

soc.ca> attach(taste)

soc.ca> active         <- data.frame(TV, Film, Art, Eat)

soc.ca> sup            <- data.frame(Gender, Age, Income)

soc.ca> detach(taste)

soc.ca> # Runs the analysis
soc.ca> result         <- soc.mca(active, sup)
> result.label  <- add.to.label(result)
> result.label$names.mod
 [1] "TV: Tv-Comedy (n:152)"       "TV: Tv-Drama (n:134)"       
 [3] "TV: Tv-Films (n:117)"        "TV: Tv-Nature (n:159)"      
 [5] "TV: Tv-News (n:220)"         "TV: Tv-Police (n:82)"       
 [7] "TV: Tv-Soap (n:215)"         "TV: Tv-Sport (n:136)"       
 [9] "Film: Action (n:389)"        "Film: Comedy (n:235)"       
[11] "Film: CostumeDrama (n:140)"  "Film: Documentary (n:100)"  
[13] "Film: Horror (n:62)"         "Film: Musical (n:87)"       
[15] "Film: Romance (n:101)"       "Film: SciFi (n:101)"        
[17] "Art: Impressionism (n:125)"  "Art: Landscape (n:632)"     
[19] "Art: ModernArt (n:110)"      "Art: PerformanceArt (n:105)"
[21] "Art: Portrait (n:117)"       "Art: RenaissanceArt (n:55)" 
[23] "Art: StillLife (n:71)"       "Eat: Fish&Chips (n:107)"    
[25] "Eat: FrenchRest (n:99)"      "Eat: IndianRest (n:402)"    
[27] "Eat: ItalianRest (n:228)"    "Eat: Pub (n:281)"           
[29] "Eat: SteakHouse (n:98)"     
> result.label  <- add.to.label(result, value = "ctr", dim = 2)
> result.label$names.mod
 [1] "TV: Tv-Comedy (ctr:1.7)"       "TV: Tv-Drama (ctr:0)"         
 [3] "TV: Tv-Films (ctr:8.2)"        "TV: Tv-Nature (ctr:2.9)"      
 [5] "TV: Tv-News (ctr:14.2)"        "TV: Tv-Police (ctr:2.7)"      
 [7] "TV: Tv-Soap (ctr:0)"           "TV: Tv-Sport (ctr:2.6)"       
 [9] "Film: Action (ctr:2)"          "Film: Comedy (ctr:2.9)"       
[11] "Film: CostumeDrama (ctr:7.6)"  "Film: Documentary (ctr:0.2)"  
[13] "Film: Horror (ctr:1.7)"        "Film: Musical (ctr:0)"        
[15] "Film: Romance (ctr:8.2)"       "Film: SciFi (ctr:2.9)"        
[17] "Art: Impressionism (ctr:14.2)" "Art: Landscape (ctr:2.7)"     
[19] "Art: ModernArt (ctr:0)"        "Art: PerformanceArt (ctr:2.6)"
[21] "Art: Portrait (ctr:2)"         "Art: RenaissanceArt (ctr:2.9)"
[23] "Art: StillLife (ctr:7.6)"      "Eat: Fish&Chips (ctr:0.2)"    
[25] "Eat: FrenchRest (ctr:1.7)"     "Eat: IndianRest (ctr:0)"      
[27] "Eat: ItalianRest (ctr:8.2)"    "Eat: Pub (ctr:2.9)"           
[29] "Eat: SteakHouse (ctr:14.2)"   
> result.label  <- add.to.label(result, value = result$variable, prefix = " - ", suffix = "")
> result.label$names.mod
 [1] "TV: Tv-Comedy - TV"        "TV: Tv-Drama - TV"        
 [3] "TV: Tv-Films - TV"         "TV: Tv-Nature - TV"       
 [5] "TV: Tv-News - TV"          "TV: Tv-Police - TV"       
 [7] "TV: Tv-Soap - TV"          "TV: Tv-Sport - TV"        
 [9] "Film: Action - Film"       "Film: Comedy - Film"      
[11] "Film: CostumeDrama - Film" "Film: Documentary - Film" 
[13] "Film: Horror - Film"       "Film: Musical - Film"     
[15] "Film: Romance - Film"      "Film: SciFi - Film"       
[17] "Art: Impressionism - Art"  "Art: Landscape - Art"     
[19] "Art: ModernArt - Art"      "Art: PerformanceArt - Art"
[21] "Art: Portrait - Art"       "Art: RenaissanceArt - Art"
[23] "Art: StillLife - Art"      "Eat: Fish&Chips - Eat"    
[25] "Eat: FrenchRest - Eat"     "Eat: IndianRest - Eat"    
[27] "Eat: ItalianRest - Eat"    "Eat: Pub - Eat"           
[29] "Eat: SteakHouse - Eat"    
> result.label  <- add.to.label(result, value = "linebreak")
> result.label$names.mod
 [1] "TV:\n Tv-Comedy"       "TV:\n Tv-Drama"        "TV:\n Tv-Films"       
 [4] "TV:\n Tv-Nature"       "TV:\n Tv-News"         "TV:\n Tv-Police"      
 [7] "TV:\n Tv-Soap"         "TV:\n Tv-Sport"        "Film:\n Action"       
[10] "Film:\n Comedy"        "Film:\n CostumeDrama"  "Film:\n Documentary"  
[13] "Film:\n Horror"        "Film:\n Musical"       "Film:\n Romance"      
[16] "Film:\n SciFi"         "Art:\n Impressionism"  "Art:\n Landscape"     
[19] "Art:\n ModernArt"      "Art:\n PerformanceArt" "Art:\n Portrait"      
[22] "Art:\n RenaissanceArt" "Art:\n StillLife"      "Eat:\n Fish&Chips"    
[25] "Eat:\n FrenchRest"     "Eat:\n IndianRest"     "Eat:\n ItalianRest"   
[28] "Eat:\n Pub"            "Eat:\n SteakHouse"    
> map.ctr(result.label)
Warning in if (class(x) == "unit") { :
  the condition has length > 1 and only the first element will be used
Warning in if (class(x) == "unit") { :
  the condition has length > 1 and only the first element will be used
Warning in if (class(x) == "unit") { :
  the condition has length > 1 and only the first element will be used
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
Execution halted