'networkLite' now depends on 'network' 1.19.0, and as_tibble.networkL…

…ite() now always adds a "bipartite" attribute for consistency.

DESCRIPTION

@@ -25,7 +25,7 @@ URL: https://github.com/EpiModel/networkLite/
 BugReports: https://github.com/EpiModel/networkLite/issues
 Depends:
     R (>= 3.5),
-    network (>= 1.18.1)
+    network (>= 1.19.0)
 Imports:
     statnet.common (>= 4.11.0),
     tibble,
@@ -35,4 +35,6 @@ Suggests:
 RoxygenNote: 7.3.2.9000
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-Remotes: github::statnet/statnet.common@master
+Remotes:
+    github::statnet/statnet.common@master,
+    github::statnet/network@master  

R/matrix_conversions.R

@@ -82,7 +82,7 @@ as_tibble.networkLite <- function(x, attrnames = NULL, na.rm = TRUE, ...) {
   out <- atomize(out, ...)
   attr(out, "n") <- network.size(x)
   attr(out, "vnames") <- network.vertex.names(x)
-  if (is.bipartite(x)) attr(out, "bipartite") <- x %n% "bipartite"
+  attr(out, "bipartite") <- NVL(x %n% "bipartite", FALSE)
   out
 }
 

tests/testthat/test-networkLite.R

@@ -548,13 +548,11 @@ test_that("more tibble tests", {
   tbl <- as_tibble(nw, na.rm = FALSE)
   tbl <- tbl[order(tbl$.tail, tbl$.head),]
   class(tbl) <- c("edgelist", class(tbl))
-  attr(tbl, "n") <- network.size(nw)
   nwL <- networkLite(tbl)
   expect_error(expect_equiv_nets(nw, nwL))
   expect_equal(list.edge.attributes(nwL), c("na"))
 
   tbl <- as_tibble(nw, attrnames = "e1", na.rm = FALSE)
-  attr(tbl, "n") <- network.size(nw)
   tbl <- tbl[order(tbl$.tail, tbl$.head),]
   class(tbl) <- c("edgelist", class(tbl))
   nwL <- networkLite(tbl)
@@ -564,23 +562,20 @@ test_that("more tibble tests", {
   tbl <- as_tibble(nw, attrnames = c("e1", "e2"), na.rm = FALSE)
   tbl <- tbl[order(tbl$.tail, tbl$.head),]
   class(tbl) <- c("edgelist", class(tbl))
-  attr(tbl, "n") <- network.size(nw)
   nwL <- networkLite(tbl)
   expect_error(expect_equiv_nets(nw, nwL))
   expect_equal(list.edge.attributes(nwL), c("e1", "e2", "na"))
 
   tbl <- as_tibble(nw, attrnames = c("e1", "e2", "na"), na.rm = FALSE)
   tbl <- tbl[order(tbl$.tail, tbl$.head),]
   class(tbl) <- c("edgelist", class(tbl))
-  attr(tbl, "n") <- network.size(nw)
   nwL <- networkLite(tbl)
   expect_equiv_nets(nw, nwL)
   expect_equal(list.edge.attributes(nwL), c("e1", "e2", "na"))
 
   tbl <- as_tibble(nw, attrnames = c("e1", "e2", "na"), na.rm = TRUE)
   tbl <- tbl[order(tbl$.tail, tbl$.head),]
   class(tbl) <- c("edgelist", class(tbl))
-  attr(tbl, "n") <- network.size(nw)
   nwL <- networkLite(tbl)
   expect_error(expect_equiv_nets(nw, nwL))
   expect_equal(list.edge.attributes(nwL), c("e1", "e2", "na"))
@@ -679,7 +674,6 @@ test_that("network and networkLite produce identical matrices, edgelists, and ti
                            as.edgelist(nwL, attrname = attrname, na.rm = na.rm, output = "tibble"))
 
           tbl <- tibble::as_tibble(nw, attrname = attrname, na.rm = na.rm)
-          attr(tbl, "n") <- network.size(nw)
           expect_identical(tbl,
                            tibble::as_tibble(nwL, attrname = attrname, na.rm = na.rm))
         }