Copied simulate_simple() from statnet.common and dropped the required statnet.common version to 4.4.1.

Author: krivit

DESCRIPTION

@@ -14,7 +14,7 @@ Authors@R: c(
     person("Michał", " Bojanowski", role=c("ctb"), email="mbojanowski@kozminski.edu.pl"),
     person("Chad", "Klumb", role=c("ctb"), email="cklumb@gmail.com"))
 Depends: R (>= 2.10), utils
-Imports: tibble, magrittr, statnet.common (>= 4.5), stats
+Imports: tibble, magrittr, statnet.common (>= 4.4.1), stats
 Suggests: 
     sna,
     testthat,

NAMESPACE

@@ -188,9 +188,9 @@ importFrom(graphics,strwidth)
 importFrom(graphics,text)
 importFrom(magrittr,"%>%")
 importFrom(magrittr,set_names)
+importFrom(statnet.common,EVL)
 importFrom(statnet.common,NVL)
 importFrom(statnet.common,once)
-importFrom(statnet.common,simplify_simple)
 importFrom(statnet.common,statnetStartupMessage)
 importFrom(stats,na.omit)
 importFrom(stats,rnorm)

R/coercion.R

@@ -260,7 +260,6 @@ as.matrix.network.edgelist<-function(x,attrname=NULL,as.sna.edgelist=FALSE,na.rm
 #
 #' @rdname as.matrix.network
 #' @param store.eid whether the edge ID should be stored in the third column (`.eid`).
-#' @importFrom statnet.common simplify_simple
 #' @export
 as_tibble.network<-function(x,attrnames=(match.arg(unit)=="vertices"),na.rm=TRUE,..., unit=c("edges", "vertices"), store.eid=FALSE){
   unit <- match.arg(unit)

R/misc.R

@@ -568,3 +568,23 @@ which.matrix.type<-function(x)
     }
     out
 }
+
+
+# This is a temporary transplant from statnet.common, copied here to ease transition on CRAN.
+#' @importFrom statnet.common EVL
+simplify_simple <- function(x, toNA = c("null","empty","keep"), empty = c("keep", "unlist"), ...){
+  if(isFALSE(toNA)) toNA <- "keep"
+  toNA <- match.arg(toNA)
+  empty <- match.arg(empty)
+
+  if(is.atomic(x)) return(x)
+
+  x <- switch(toNA,
+              keep = x,
+              null = lapply(x, NVL, NA),
+              empty = lapply(x, EVL, NA))
+
+  if(length(x)==0) switch(empty, keep=x, unlist=unlist(x, recursive=FALSE, ...))
+  else if(all(lengths(x)==1L) && all(vapply(x, is.atomic, logical(1)))) unlist(x, recursive=FALSE, ...)
+  else x
+}