R/old-1_0_0.R

In igraph: Network Analysis and Visualization

oldsample_1_0_0 <- function() {
  ..env.1.. <- new.env(parent = baseenv())
  ..env.1..$me <- list(
    3,
    TRUE,
    c(0, 1, 2),
    c(1, 2, 0),
    c(0, 1, 2),
    c(2, 0, 1),
    seq(0, 3, by = 1),
    seq(0, 3, by = 1),
    list(
      c(1, 0, 1),
      list(name = "Ring graph", mutual = FALSE, circular = TRUE),
      list(bar = c("A", "B", "C")),
      list(foo = c("a", "b", "c"))
    ),
    ..env.1..
  ) %>%
    structure(class = "igraph")
  ..env.1..$.__igraph_version__. <- "0.8.0"
  ..env.1..$myid <- "0fb28c05-9cc1-4a24-ba62-f5c319a3051b"
  ..env.1..$me
}