r - R visNetwork + visEdges による igraph 加重ネットワーク可視化

Question

igraph と visNetwork の組み合わせに関して非常に簡単な質問があります。visEdges(value=E(graph)$weight) でエッジに重みを付けたいのですが、うまくいきません。問題を説明するおもちゃの例を次に示します。

     test
     [,1] [,2] [,3] [,4] [,5]
[1,]    0    1    3    7    1
[2,]    4    0    8    9    5
[3,]   10    3    0    8    3
[4,]    5    1    5    0    7
[5,]    8    2    7    4    0

library(igraph); library(visNetwork)

test.gr <- graph_from_adjacency_matrix(test, mode="undirected", weighted=T)

加重グラフとして視覚化しようとすると、プロットされません。

test.gr %>%
  visIgraph(layout = "layout_in_circle") %>%
  visEdges(value = E(test.gr)$weight)

私が使用する場合

test.gr %>%
  visIgraph(layout = "layout_in_circle") %>%
  visEdges(value = 10)

代わりに、プロットを取得します。

しかし、これはもちろん私が望むものではありません。E(test.gr)$weigth に従って異なるエッジ幅が必要です。

どうすればこれができるか教えてもらえますか?