Curved edges with layout_in_circle

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"))