R Under development (unstable) (2026-02-12 r89409 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(ribiosGraph)
Loading required package: igraph

Attaching package: 'igraph'

The following objects are masked from 'package:stats':

    decompose, spectrum

The following object is masked from 'package:base':

    union

> library(igraph)
> g <- igraph::barabasi.game(100, directed=FALSE)
Warning message:
`barabasi.game()` was deprecated in igraph 2.0.0.
ℹ Please use `sample_pa()` instead. 
> V(g)$label <- c(paste("node", 1:99, sep=""),"--")
> V(g)$name <- 1:100
> V(g)$isInput <- rbinom(100,1, 0.5)
> E(g)$label <- "Expression"
> gPosE <- as.logical(rbinom(ecount(g), 1, 0.25))
> gNegE <- as.logical(rbinom(ecount(g), 1, 0.25))
> E(g)$label[gPosE] <- "Expressoion_Positive"
> E(g)$label[gNegE] <- "Expressoion_Negative"
> 
> gFile <- tempfile()
> exportGML(g, gFile)
> 
> testStr2 <- sprintf("grep -c 'label \"\"' %s", gFile)
> testRes2 <- system(testStr2, intern=TRUE)
> if(testRes2 != "1")
+   stop("Error: dash-only labels are not eliminated")
> 
> proc.time()
   user  system elapsed 
   1.81    0.39    2.42