"Too many" of the same value causes an error about vioplot HOT 4 CLOSED

> library("vioplot")
Loading required package: sm
Package 'sm', version 2.2-5.6: type help(sm) for summary information
Loading required package: zoo

Attaching package: ‘zoo’

The following objects are masked from ‘package:base’:

    as.Date, as.Date.numeric

> vioplot(x = c(0))
> vioplot(x = c(rep.int(0, 100)))
> vioplot(x = c(rep.int(0, 500)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 250)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 150)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 100)))
> vioplot(x = c(rep.int(0, 125)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 110)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 101)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 100)))

> vioplot(x = c(rep.int(0, 100), 1))
> vioplot(x = c(rep.int(0, 100)), y = c(rep.int(0, 100)))
> vioplot(x = c(rep.int(0, 101)), y = c(rep.int(0, 101)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
> vioplot(x = c(rep.int(0, 100)), y = c(rep.int(0, 100), 1))
> vioplot(x = c(rep.int(0, 101)), y = c(rep.int(0, 101)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique```

If I can identify the issue we could replace the error by a point making the average (well mean, median, and mode would be the same in this case).

> options(error = function() {
+     calls <- sys.calls()
+     if (length(calls) >= 2L) {
+         sink(stderr())
+         on.exit(sink(NULL))
+         cat("Backtrace:\n")
+         calls <- rev(calls[-length(calls)])
+         for (i in seq_along(calls)) {
+             cat(i, ": ", deparse(calls[[i]], nlines = 1L), "\n", sep = "")
+         }
+     }
+     if (!interactive()) {
+         q(status = 1)
+     }
+ })
> vioplot(x = c(rep.int(0, 101)), y = c(rep.int(0, 101)))
Error in cut.default(x, breaks = breaks) : 'breaks' are not unique
Backtrace:
1: stop("'breaks' are not unique")
2: cut.default(x, breaks = breaks)
3: cut(x, breaks = breaks)
4: binning.1d(x, y, breaks = breaks, nbins = nbins)
5: binning(x, y, nbins = opt$nbins)
6: h.select(x = x, y = NA, weights = weights, ...)
7: sm.density(c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
8: do.call("sm.density", c(list(data, xlim = est.xlim), args))
9: vioplot.default(x = c(rep.int(0, 101)), y = c(rep.int(0, 101)))
10: vioplot(x = c(rep.int(0, 101)), y = c(rep.int(0, 101)))```