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
29
30
31
32
33
34
35
36
37
38
39
40
|
context("VS/ES indexing")
test_that("I can index a vs twice", {
edges <- data.frame(
stringsAsFactors = TRUE,
from = c("BOS", "JFK", "DEN", "BOS", "JFK", "DEN"),
to = c("JFK", "DEN", "ABQ", "JFK", "DEN", "ABQ"),
carrier = c("foo", "foo", "foo", "bar", "bar", "bar")
)
vertices <- data.frame(
stringsAsFactors = TRUE,
id = c("BOS", "JFK", "DEN", "ABQ"),
state = c("MA", "NY", "CO", "NM")
)
g <- graph_from_data_frame(edges, vertices = vertices)
x <- V(g)[ 3:4 ] [ state == 'NM' ]
expect_equal(x, V(g)['ABQ'])
})
test_that("I can index an es twice", {
edges <- data.frame(
stringsAsFactors = TRUE,
from = c("BOS", "JFK", "DEN", "BOS", "JFK", "DEN"),
to = c("JFK", "DEN", "ABQ", "JFK", "DEN", "ABQ"),
carrier = c("foo", "foo", "foo", "bar", "bar", "bar")
)
g <- graph_from_data_frame(edges)
x <- E(g)['BOS' %->% 'JFK'][carrier == 'foo']
expect_equal(x, E(g)[ carrier == 'foo' & from('BOS') & to('JFK')])
})
|
