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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: egonet_attrs
> ### Title: Retrieve alter's attributes (network effects)
> ### Aliases: egonet_attrs
> 
> ### ** Examples
> 
> # Creating a random graph
> set.seed(1001)
> diffnet <- rdiffnet(150, 20, seed.graph="small-world")

 *** caught segfault ***
address 0x111300000020, cause 'memory not mapped'

Traceback:
 1: exposure.list(graph, cumadopt, attrs, outgoing, valued, normalized,     self)
 2: (function (graph, cumadopt, attrs = NULL, alt.graph = NULL, outgoing = getOption("diffnet.outgoing",     TRUE), valued = getOption("diffnet.valued", FALSE), normalized = TRUE,     groupvar = NULL, self = getOption("diffnet.self"), ...) {    if (length(attrs) == 1 && inherits(attrs, "character")) {        if (!inherits(graph, "diffnet"))             stop("Specifying -attrs- as a character scalar is only valid for -diffnet- objects.")        attrs <- graph[[attrs]]        attrs <- if (inherits(attrs, "list"))             do.call(cbind, attrs)        else matrix(attrs, ncol = nslices(graph), nrow = nvertices(graph))    }    if (length(groupvar) == 1 && inherits(graph, "diffnet"))         groupvar <- graph[[groupvar]]    if (missing(cumadopt))         if (!inherits(graph, "diffnet")) {            stop("-cumadopt- should be provided when -graph- is not of class 'diffnet'")        }        else {            cumadopt <- toa_mat(graph)$cumadopt        }    if (inherits(graph, "diffnet"))         graph <- graph$graph    if (!length(attrs)) {        attrs <- matrix(1, ncol = ncol(cumadopt), nrow = nrow(cumadopt))    }    if (length(alt.graph)) {        graph <- if (inherits(alt.graph, "character")) {            if (alt.graph != "se")                 stop("Only character -alt.graph- value allowed is \"se\".")            se <- lapply(struct_equiv(graph, groupvar = groupvar,                 ...), "[[", "SE")            se <- lapply(se, function(x) {                x <- 1/x                x[!is.finite(x)] <- 0                x            })            if (!valued) {                warning("To use alt.graph=\"se\" -valued- has been switched to TRUE.")                valued <- TRUE            }            se        }        else {            if (!valued)                 warning("The -alt.graph- will be treated as 0/1 graph (value=FALSE).")            alt.graph        }    }    cls <- class(graph)    if ("array" %in% cls) {        exposure.array(graph, cumadopt, attrs, outgoing, valued,             normalized, self)    }    else if ("list" %in% cls) {        exposure.list(graph, cumadopt, attrs, outgoing, valued,             normalized, self)    }    else stopifnot_graph(graph)})(outgoing = TRUE, valued = FALSE, normalized = TRUE, graph = list(    `9` = <S4 object of class "dgCMatrix">), cumadopt = c(0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 1L, 1L, 0L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 0L, 0L, 0L))
 3: do.call(exposure, exposure.args)
 4: rdiffnet(150, 20, seed.graph = "small-world")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault