R/misc.R

In USCCANA/netplot: Beautiful Graph Drawing

# Misc

# Wrappers for different graph methods -----------------------------------------

stop_unsopported_graph <- function(x) {
  stop("Graph of class `", class(x), "` is not supported.", call. = FALSE)
}

get_vertex_attr <- function(x, attr) {

  if (inherits(x, "igraph"))
    igraph::vertex_attr(x, attr)
  else if (inherits(x, "network"))
    network::get.vertex.attribute(x, attr)
  else
    stop_unsopported_graph(x)

}

get_edge_attr <- function(x, attr) {

  if (inherits(x, "igraph"))
    igraph::edge_attr(x, attr)
  else if (inherits(x, "network"))
    network::get.edge.attribute(x, attr)
  else
    stop_unsopported_graph(x)

}

calc_degree <- function(x, mode. = "in") {
  if (inherits(x, "igraph"))
    igraph::degree(x, mode = mode.)
  else if (inherits(x, "network"))
    sna::degree(x, cmode = match.arg(
      mode., c("indegree", "outdegree", "freeman")
    ))
  else
    stop_unsopported_graph(x)
}