library(igraphdata)
data(karate)
library(igraph)
##
## Attaching package: 'igraph'
## The following objects are masked from 'package:stats':
##
## decompose, spectrum
## The following object is masked from 'package:base':
##
## union
library(visNetwork)
karate %>%
visIgraph(layout = "layout_in_circle") %>%
visEdges(smooth = list(type = "curvedCW"))