CRAN Package Check Results for Package rgexf

Last updated on 2020-01-16 20:49:45 CET.

Additional issues

valgrind

Check Details

Version: 0.15.3
Check: R code for possible problems
Result: NOTE
    gexf.to.igraph: no visible global function definition for 'rgb'
    igraph.to.gexf: no visible global function definition for 'col2rgb'
    Undefined global functions or variables:
     col2rgb rgb
    Consider adding
     importFrom("grDevices", "col2rgb", "rgb")
    to your NAMESPACE file.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-devel-windows-ix86+x86_64-gcc8, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64

Version: 0.15.3
Check: examples
Result: ERROR
    Running examples in 'rgexf-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: edge.list
    > ### Title: Decompose an edge list
    > ### Aliases: edge.list
    > ### Keywords: manip
    >
    > ### ** Examples
    >
    > edgelist <- matrix(
    + c("matthew","john",
    + "max","stephen",
    + "matthew","stephen"),
    + byrow=TRUE, ncol=2)
    >
    > edge.list(edgelist)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    rgexf
     --- call from context ---
    edge.list(edgelist)
     --- call from argument ---
    if (objClass %in% c("matrix", "data.frame")) {
     if (nCols) {
     if (!is.factor(x))
     x <- factor(c(x[, 1], x[, 2]))
     edges <- matrix(unclass(x), byrow = FALSE, ncol = 2)
     colnames(edges) <- c("source", "target")
     nodes <- data.frame(id = 1:nlevels(x), label = levels(x),
     stringsAsFactors = F)
     edgelist <- list(nodes = nodes, edges = edges)
     return(edgelist)
     }
     else stop("Insuficcient number of columns (", nCols, ")")
    } else stop(objClass, " class not allowed, try with a \"matrix\" or a \"data.frame\"")
     --- R stacktrace ---
    where 1: edge.list(edgelist)
    
     --- value of length: 2 type: logical ---
    [1] TRUE FALSE
     --- function from context ---
    function (x)
    {
     objClass <- class(x)
     nEdges <- NROW(x)
     nCols <- NCOL(x) == 2
     if (objClass %in% c("matrix", "data.frame")) {
     if (nCols) {
     if (!is.factor(x))
     x <- factor(c(x[, 1], x[, 2]))
     edges <- matrix(unclass(x), byrow = FALSE, ncol = 2)
     colnames(edges) <- c("source", "target")
     nodes <- data.frame(id = 1:nlevels(x), label = levels(x),
     stringsAsFactors = F)
     edgelist <- list(nodes = nodes, edges = edges)
     return(edgelist)
     }
     else stop("Insuficcient number of columns (", nCols,
     ")")
     }
     else stop(objClass, " class not allowed, try with a \"matrix\" or a \"data.frame\"")
    }
    <bytecode: 0x61c7dc8>
    <environment: namespace:rgexf>
     --- function search by body ---
    Function edge.list in namespace rgexf has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (objClass %in% c("matrix", "data.frame")) { :
     the condition has length > 1
    Calls: edge.list
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.15.3
Check: tests
Result: ERROR
     Running 'rundemos.R' [2s/3s]
    Running the tests in 'tests/rundemos.R' failed.
    Complete output:
     > library(rgexf)
     Loading required package: XML
     Loading required package: Rook
     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
    
     >
     > demo(edge.list)
    
    
     demo(edge.list)
     ---- ~~~~~~~~~
    
     > ################################################################################
     > # Demo of gexf function - Input: a list of edges
     > # Author: Jorge Fabrega
     > ################################################################################
     > pause <- function() {
     + invisible(readline("\nPress <return> to continue: "))
     + }
    
     > pause()
    
     Press <return> to continue:
    
     > ## Demos for rgexf - Nodes and edges with attributes.
     > ## Input: A matrix of edges
     >
     > # Defining a matrix of edges
     > relations <- matrix(c("Juan","Carlos",
     + "Juan","Pedro",
     + "Juan","Matthew",
     + "Pedro","Matthew",
     + "Matthew","Carlos",
     + "Carlos","Pedro",
     + "Pedro","Carlos",
     + "Carlos","Juan",
     + "Carlos","Juan"),
     + ncol=2, byrow=T)
    
     > relations
     [,1] [,2]
     [1,] "Juan" "Carlos"
     [2,] "Juan" "Pedro"
     [3,] "Juan" "Matthew"
     [4,] "Pedro" "Matthew"
     [5,] "Matthew" "Carlos"
     [6,] "Carlos" "Pedro"
     [7,] "Pedro" "Carlos"
     [8,] "Carlos" "Juan"
     [9,] "Carlos" "Juan"
    
     > # Now, with processEdgeList you can transform your edge list into a gexf file
     >
     > pause()
    
     Press <return> to continue:
    
     > edge.list(relations)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
     :
     --- package (from environment) ---
     rgexf
     --- call from context ---
     edge.list(relations)
     --- call from argument ---
     if (objClass %in% c("matrix", "data.frame")) {
     if (nCols) {
     if (!is.factor(x))
     x <- factor(c(x[, 1], x[, 2]))
     edges <- matrix(unclass(x), byrow = FALSE, ncol = 2)
     colnames(edges) <- c("source", "target")
     nodes <- data.frame(id = 1:nlevels(x), label = levels(x),
     stringsAsFactors = F)
     edgelist <- list(nodes = nodes, edges = edges)
     return(edgelist)
     }
     else stop("Insuficcient number of columns (", nCols, ")")
     } else stop(objClass, " class not allowed, try with a \"matrix\" or a \"data.frame\"")
     --- R stacktrace ---
     where 1 at /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/rgexf/demo/edge.list.R#30: edge.list(relations)
     where 2: eval(ei, envir)
     where 3: eval(ei, envir)
     where 4: withVisible(eval(ei, envir))
     where 5: source(available, echo = echo, max.deparse.length = Inf, keep.source = TRUE,
     encoding = encoding)
     where 6: demo(edge.list)
    
     --- value of length: 2 type: logical ---
     [1] TRUE FALSE
     --- function from context ---
     function (x)
     {
     objClass <- class(x)
     nEdges <- NROW(x)
     nCols <- NCOL(x) == 2
     if (objClass %in% c("matrix", "data.frame")) {
     if (nCols) {
     if (!is.factor(x))
     x <- factor(c(x[, 1], x[, 2]))
     edges <- matrix(unclass(x), byrow = FALSE, ncol = 2)
     colnames(edges) <- c("source", "target")
     nodes <- data.frame(id = 1:nlevels(x), label = levels(x),
     stringsAsFactors = F)
     edgelist <- list(nodes = nodes, edges = edges)
     return(edgelist)
     }
     else stop("Insuficcient number of columns (", nCols,
     ")")
     }
     else stop(objClass, " class not allowed, try with a \"matrix\" or a \"data.frame\"")
     }
     <bytecode: 0x40bd5d0>
     <environment: namespace:rgexf>
     --- function search by body ---
     Function edge.list in namespace rgexf has this body.
     ----------- END OF FAILURE REPORT --------------
     Error in if (objClass %in% c("matrix", "data.frame")) { :
     the condition has length > 1
     Calls: demo -> source -> withVisible -> eval -> eval -> edge.list
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.15.3
Check: compiled code
Result: NOTE
    File ‘rgexf/libs/rgexf.so’:
     Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
    
    It is good practice to register native routines and to disable symbol
    search.
    
    See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc