mistake in example network graph

[valeriabonapersona]

Hi! I run the network graph example, but it did not work for me. I fixed it by changing the code in the "create edges" section as

edge_shapes <- list()
for(i in 1:Ne) {

v0 <- es[i,]$V1
v1 <- es[i,]$V2

v0_index <- which(V(G)$name == v0)
v1_index <- which(V(G)$name == v1)

edge_shape = list(
type = "line",
line = list(color = "#030303", width = 0.3),
x0 = Xn[v0_index],
y0 = Yn[v0_index],
x1 = Xn[v1_index],
y1 = Yn[v1_index]
)

edge_shapes[[i]] <- edge_shape
}