minimal reproducible example of the bug in circleplot

circleplot_mre.R

# load devtools and install the preferred version of circleplot
library(devtools)
install_github('mjwestgate/circleplot')
#install_github('goldingn/circleplot')
library(circleplot)

# set RNG seed
set.seed(1)

# create a fake symmetric matrix
k <- 10
x <- matrix(runif(k ^ 2), ncol = k)
x <- x %*% t(x)
diag(x) <- 0
rownames(x) <- colnames(x) <- 1:k

# plot it
circleplot(x)

# this is the highest value, is a line drawn?
which(x == max(x), arr.ind = TRUE)[1, ]