Clean multi edge metanet to plot

clean_multi_edge_metanet(go)

g <- igraph::make_ring(2)
g <- igraph::add.edges(g, c(1, 1, 1, 1, 2, 1))
#> Warning: `add.edges()` was deprecated in igraph 2.0.0.
#> ℹ Please use `add_edges()` instead.
plot(g)

plot(clean_multi_edge_metanet(g))