边缘箭头的颜色与边缘的其余部分不同

Question

visNetwork图中边的箭头颜色有可能与边的颜色不同吗？

 library(visNetwork)
    nodes <- data.frame(id = 1:4,label=1:4)
    edges <- data.frame(from = c(1,2,3,4), to = c(2,3,4,1))
    
    
    visNetwork(nodes, edges, width = "100%") %>%
 
      visNodes(shape = "square", 
               color = list(background = "lightblue", 
                            border = "darkblue",
                            highlight = "yellow"),
               shadow = list(enabled = TRUE, size = 10)) %>%
visEdges(shadow = TRUE,
           arrows =list(to = list(enabled = TRUE, scaleFactor = 0.5)),
           color = list(color = "cyan",highlight="cyan"))%>%
      visLayout(randomSeed = 12) # to have always the same network