1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
oldsample_1_5_0 <- function() {
..env.1.. <- new.env(parent = baseenv())
..env.1..$me <- list(
3,
TRUE,
c(0, 1, 2),
c(1, 2, 0),
NULL,
NULL,
NULL,
NULL,
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")
# This will be reconstructed on demand.
# ..env.1..$igraph <- constructive::.xptr("0x0")
..env.1..$.__igraph_version__. <- ver_1_5_0
..env.1..$myid <- "0fb28c05-9cc1-4a24-ba62-f5c319a3051b"
..env.1..$me
}
|
