curved_arrowhead <- arrow_head_bezier(list(
c(1, 0,
.5, .5,
.2, .5),
c(.2, .5,
.2, .1,
-.1, .25,
-.3, .25),
c(-.3, .25,
0, 0,
-.3, -.25),
c(-.3, -.25,
-.1, -.25,
.2, -.1,
.2, -.5),
c(.2, -.5,
.5, -.5,
1, 0)
),
plot = TRUE)
Run the code above in your browser using DataLab