Running examples in 'GGally-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ggnet2
> ### Title: ggnet2 - Plot a network with ggplot2
> ### Aliases: ggnet2
> 
> ### ** Examples
> 
> library(network)
network: Classes for Relational Data
Version 1.16.0 created on 2019-11-30.
copyright (c) 2005, Carter T. Butts, University of California-Irvine
                    Mark S. Handcock, University of California -- Los Angeles
                    David R. Hunter, Penn State University
                    Martina Morris, University of Washington
                    Skye Bender-deMoll, University of Washington
 For citation information, type citation("network").
 Type help("network-package") to get started.

> 
> # random adjacency matrix
> x           <- 10
> ndyads      <- x * (x - 1)
> density     <- x / ndyads
> m           <- matrix(0, nrow = x, ncol = x)
> dimnames(m) <- list(letters[ 1:x ], letters[ 1:x ])
> m[ row(m) != col(m) ] <- runif(ndyads) < density
> m
  a b c d e f g h i j
a 0 1 0 0 0 0 1 0 0 0
b 0 0 0 0 1 1 1 0 0 0
c 0 0 0 0 0 0 0 0 0 0
d 0 0 0 0 0 0 0 0 0 0
e 0 0 0 0 0 0 0 0 0 0
f 0 0 0 0 0 0 0 1 0 0
g 0 0 0 0 0 0 0 0 0 0
h 0 0 0 0 0 0 0 0 0 0
i 0 0 0 0 0 0 0 0 0 0
j 0 0 1 0 0 0 0 0 0 0
> 
> # random undirected network
> n <- network::network(m, directed = FALSE)
> n
 Network attributes:
  vertices = 10 
  directed = FALSE 
  hyper = FALSE 
  loops = FALSE 
  multiple = FALSE 
  bipartite = FALSE 
  total edges= 7 
    missing edges= 0 
    non-missing edges= 7 

 Vertex attribute names: 
    vertex.names 

No edge attributes
> 
> ggnet2(n, label = TRUE)
> ggnet2(n, label = TRUE, shape = 15)
> ggnet2(n, label = TRUE, shape = 15, color = "black", label.color = "white")
> 
> # add vertex attribute
> x = network.vertex.names(n)
> x = ifelse(x %in% c("a", "e", "i"), "vowel", "consonant")
> n %v% "phono" = x
> 
> ggnet2(n, color = "phono")
> ggnet2(n, color = "phono", palette = c("vowel" = "gold", "consonant" = "grey"))
> ggnet2(n, shape = "phono", color = "phono")
Warning in guide_merge.legend(init, x[[i]]) :
  Duplicated override.aes is ignored.
> 
> if (require(RColorBrewer)) {
+ 
+   # random groups
+   n %v% "group" <- sample(LETTERS[1:3], 10, replace = TRUE)
+ 
+   ggnet2(n, color = "group", palette = "Set2")
+ 
+ }
Loading required package: RColorBrewer
> 
> # random weights
> n %e% "weight" <- sample(1:3, network.edgecount(n), replace = TRUE)
> ggnet2(n, edge.size = "weight", edge.label = "weight")
> 
> # edge arrows on a directed network
> ggnet2(network(m, directed = TRUE), arrow.gap = 0.05, arrow.size = 10)
> 
> # Padgett's Florentine wedding data
> data(flo, package = "network")
> flo
             Acciaiuoli Albizzi Barbadori Bischeri Castellani Ginori Guadagni
Acciaiuoli            0       0         0        0          0      0        0
Albizzi               0       0         0        0          0      1        1
Barbadori             0       0         0        0          1      0        0
Bischeri              0       0         0        0          0      0        1
Castellani            0       0         1        0          0      0        0
Ginori                0       1         0        0          0      0        0
Guadagni              0       1         0        1          0      0        0
Lamberteschi          0       0         0        0          0      0        1
Medici                1       1         1        0          0      0        0
Pazzi                 0       0         0        0          0      0        0
Peruzzi               0       0         0        1          1      0        0
Pucci                 0       0         0        0          0      0        0
Ridolfi               0       0         0        0          0      0        0
Salviati              0       0         0        0          0      0        0
Strozzi               0       0         0        1          1      0        0
Tornabuoni            0       0         0        0          0      0        1
             Lamberteschi Medici Pazzi Peruzzi Pucci Ridolfi Salviati Strozzi
Acciaiuoli              0      1     0       0     0       0        0       0
Albizzi                 0      1     0       0     0       0        0       0
Barbadori               0      1     0       0     0       0        0       0
Bischeri                0      0     0       1     0       0        0       1
Castellani              0      0     0       1     0       0        0       1
Ginori                  0      0     0       0     0       0        0       0
Guadagni                1      0     0       0     0       0        0       0
Lamberteschi            0      0     0       0     0       0        0       0
Medici                  0      0     0       0     0       1        1       0
Pazzi                   0      0     0       0     0       0        1       0
Peruzzi                 0      0     0       0     0       0        0       1
Pucci                   0      0     0       0     0       0        0       0
Ridolfi                 0      1     0       0     0       0        0       1
Salviati                0      1     1       0     0       0        0       0
Strozzi                 0      0     0       1     0       1        0       0
Tornabuoni              0      1     0       0     0       1        0       0
             Tornabuoni
Acciaiuoli            0
Albizzi               0
Barbadori             0
Bischeri              0
Castellani            0
Ginori                0
Guadagni              1
Lamberteschi          0
Medici                1
Pazzi                 0
Peruzzi               0
Pucci                 0
Ridolfi               1
Salviati              0
Strozzi               0
Tornabuoni            0
> 
> ggnet2(flo, label = TRUE)
> ggnet2(flo, label = TRUE, label.trim = 4, vjust = -1, size = 3, color = 1)
Error: Unknown colour name: 1
Execution halted