v1.7.1

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: manynet
 Title: Many Ways to Make, Modify, Mark, and Measure Myriad Networks
-Version: 1.7.0
-Date: 2025-11-19
+Version: 1.7.1
+Date: 2026-02-17
 Description: Many tools for making, modifying, marking, measuring, 
    and motifs and memberships of many different types of networks.
    All functions operate with matrices, edge lists, and 'igraph', 'network', and 'tidygraph' objects,

NAMESPACE

@@ -360,6 +360,8 @@ export(describe_changes)
 export(describe_network)
 export(describe_nodes)
 export(describe_ties)
+export(expect_nodes)
+export(expect_ties)
 export(extract_tute)
 export(filter_changes)
 export(filter_nodes)
@@ -456,7 +458,9 @@ export(net_infection_peak)
 export(net_infection_total)
 export(net_length)
 export(net_modularity)
+export(net_name)
 export(net_node_attributes)
+export(net_node_names)
 export(net_nodes)
 export(net_outdegree)
 export(net_reach)
@@ -471,6 +475,7 @@ export(net_spatial)
 export(net_stability)
 export(net_strength)
 export(net_tie_attributes)
+export(net_tie_names)
 export(net_ties)
 export(net_toughness)
 export(net_transitivity)
@@ -717,6 +722,7 @@ export(tie_is_simmelian)
 export(tie_is_transitive)
 export(tie_is_triangular)
 export(tie_is_triplet)
+export(tie_is_twomode)
 export(tie_signs)
 export(tie_weights)
 export(to_acyclic)
@@ -822,6 +828,7 @@ importFrom(igraph,edge_density)
 importFrom(igraph,eulerian_path)
 importFrom(igraph,feedback_arc_set)
 importFrom(igraph,fit_power_law)
+importFrom(igraph,graph_attr)
 importFrom(igraph,graph_from_adjacency_matrix)
 importFrom(igraph,graph_from_biadjacency_matrix)
 importFrom(igraph,graph_from_data_frame)

R/class_networks.R

@@ -105,18 +105,6 @@ is_grand <- function(.data){
   !is.null(igraph::graph_attr(.data, "grand"))
 }
 
-net_name <- function(.data, prefix = NULL){
-  existname <- ""
-  if(!is.null(igraph::graph_attr(.data, "name"))) {
-    existname <- igraph::graph_attr(.data, 'name')
-  } else if(is_grand(.data) && 
-            !is.null(igraph::graph_attr(.data, "grand")$name)){
-    existname <- igraph::graph_attr(.data, 'grand')$name
-  }
-  if(existname != "" && !is.null(prefix)) existname <- paste(prefix, existname)
-  existname
-}
-
 #' @rdname make_mnet
 #' @export
 describe_network <- function(x) {

R/data_fict.R

@@ -2,20 +2,18 @@
 
 ## Marvel ####
 
-#' Multilevel two-mode affiliation, signed one-mode networks of Marvel comic
-#' book characters (Yuksel 2017)
+#' Multiplex two-mode affiliation and one-mode signed relationship network of 
+#' Marvel comic book characters (Yuksel 2017)
 #'
 #' @description
-#' This package includes two datasets related to the Marvel _comic book_ universe.
-#' The first, `ison_marvel_teams`,  is a two-mode affiliation network of 53
-#' Marvel comic book characters and their affiliations to 141 different teams.
-#' This network includes only information about nodes' names and nodeset,
-#' but additional nodal data can be taken from the other Marvel dataset here.
-#'
-#' The second network, `ison_marvel_relationships`, is a one-mode signed network
-#' of friendships and enmities between the 53 Marvel comic book characters.
-#' Friendships are indicated by a positive sign in the tie `sign` attribute,
-#' whereas enmities are indicated by a negative sign in this edge attribute.
+#'   This multiplex network contains two types of ties related to the 
+#'   Marvel _comic book_ universe.
+#'   The "affiliation" ties offer a two-mode affiliation network of 53
+#'   Marvel comic book characters and their affiliations to 141 teams.
+#'   The "relationship" ties offer a one-mode signed network
+#'   of friendships and enmities between the 53 Marvel comic book characters.
+#'   Friendships are indicated by a positive sign in the tie `sign` attribute,
+#'   whereas enmities are indicated by a negative sign in this edge attribute.
 #' @details
 #' Additional nodal variables have been coded and included by Dr Umut Yuksel:
 #'
@@ -33,22 +31,14 @@
 #' See also https://graphics.straitstimes.com/STI/STIMEDIA/Interactives/2018/04/marvel-cinematic-universe-whos-who-interactive/index.html.
 #' @docType data
 #' @keywords datasets
-#' @name ison_marvel
-#' @usage data(ison_marvel_teams)
+#' @name fict_marvel
+#' @usage data(fict_marvel)
 #' @source Umut Yuksel, 31 March 2017
 #' @format
 #'   ```{r, echo = FALSE}
-#'   ison_marvel_teams
-#'   ```
-"ison_marvel_teams"
-
-#' @rdname ison_marvel
-#' @usage data(ison_marvel_relationships)
-#' @format
-#'   ```{r, echo = FALSE}
-#'   ison_marvel_relationships
+#'   fict_marvel
 #'   ```
-"ison_marvel_relationships"
+"fict_marvel"
 
 ## Lord of the Rings ####
 

R/make_read.R

@@ -741,7 +741,7 @@ write_graphml <- function(.data,
     filename <- paste0(getwd(), "/", deparse(substitute(.data)), ".graphml")
     snet_success("Writing to {.file {filename}}")
   } 
-  igraph::write_graph(.data,
+  igraph::write_graph(as_igraph(.data),
                       filename,
                       format = "graphml")
 }

R/manip_as.R

@@ -510,8 +510,13 @@ as_igraph.networkDynamic <- function(.data, twomode = FALSE) {
 
   # changes
   changes <- do.call(rbind, lapply(1:length(.data$val), 
-                                   function(x) data.frame(x, .data$val[[x]]$active)))
+                                   function(x) data.frame(node = x, 
+                                                          if(is.null(.data$val[[x]]$active)) 
+                                                            matrix(c(NA, NA), ncol = 2) else 
+                                                            .data$val[[x]]$active
+                                                          )))
   names(changes) <- c("node","begin","end")
+  changes <- stats::na.omit(changes)
 
   as_igraph(add_changes(out, changes))
 }