Running 'as.edgelist_tests.R' [1s]
  Running 'general.tests.R' [1s]
  Running 'general.tests2.R' [6s]
  Running 'list.attribute.tests.R' [1s]
  Running 'misc_tests.R' [1s]
  Running 'network.access.test.R' [1s]
  Running 'network.battery.R' [2s]
  Running 'pathological.tests.R' [1s]
  Running 'plot_tests.R' [2s]
  Running 'plotflo.R' [1s]
  Running 'read.paj_tests.R' [3s]
  Running 'speedTests.R' [8s]
  Running 'vignette.R' [1s]
Running the tests in 'tests/plot_tests.R' failed.
Complete output:
  > # various tests for network plotting functions
  > # mostly recent functionality added by skyebend
  > require(network)
  Loading required package: network
  network: Classes for Relational Data
  Version 1.15 created on 2019-04-01.
  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.
  
  > require(testthat)
  Loading required package: testthat
  > # -----  test edge labels ------
  > ymat<-matrix(c(0,1,2,3, 0,0,0,0, 1,0,0,0, 0,0,0,0),ncol=4)
  > ynet<-network(ymat,ignore.eval=FALSE,names.eval='weight')
  > # don't do anything if no value given
  > plot(ynet,edge.label.col='blue',edge.label.cex='weight')
  > # use edge ids is if edge.label=TRUE
  > plot(ynet,edge.label=TRUE)
  > 
  > plot(ynet,edge.label='weight',edge.label.col='blue',edge.label.cex='weight')
  > 
  > # labels for curved edges
  > plot(ynet,edge.label='weight',edge.label.col='blue',edge.label.cex='weight',usecurve=TRUE)
  > plot(ynet,edge.label='weight',edge.label.col='blue',edge.label.cex='weight',usecurve=TRUE,edge.curve=0.5)
  > 
  > data(emon)
  > par(mar=c(0,0,0,0))
  > plot(emon[[5]],edge.label=TRUE,edge.label.cex=0.6,edge.col='gray',edge.lwd=(emon[[5]]%e%'Frequency')*2)
  > 
  > # test for labeling network with no edges #521
  > plot(network.initialize(1),edge.label=TRUE)
  > 
  > # test color stuff
  > 
  > col.list<-c('red','#800000','#80000505',NA)
  > # test is.color for vector NA processing bug #491
  > if(!all(is.color(col.list)[1:3] & is.na(is.color(col.list)[4]))){
  +   stop('is.color did not correctly recognize colors and NA values in a character vector')
  + }
  >    
  > col.list<-list('red','#800000','#80000505',NA)
  > # test is.color for list NA processing bug #491
  > if(!all(is.color(col.list)[1:3] & is.na(is.color(col.list)[4]))){
  +   stop('is.color did not correctly recognize colors and NA values in a list')
  + }
  > 
  > # ------------ as.color --------
  > 
  > expect_equal(as.color(c('a','b','c')),1:3)  # character
  > expect_equal(as.color(1:3),1:3)  # numeric
  > expect_equal(as.color(as.factor(c('a','b','c'))),1:3)  # factor
  > expect_equal(as.color(c('red','green','blue')),c('red','green','blue'))  # color name
  > expect_equal(as.color(c(1,0.5,0)),c("#FFFFFF", "#808080", "#000000"))# real valued  (gray)
  > # transparency/ opacity
  > expect_equal(as.color(c('red','green','blue'),0.5),c("#FF000080", "#00FF0080", "#0000FF80"))
  > expect_equal(as.color(1:3,0.5),c("#00000080", "#FF000080", "#00CD0080"))
  Error: as.color(1:3, 0.5) not equal to c("#00000080", "#FF000080", "#00CD0080").
  2/3 mismatches
  x[2]: "#DF536B80"
  y[2]: "#FF000080"
  
  x[3]: "#61D04F80"
  y[3]: "#00CD0080"
  Execution halted