(v1.3.0.9029) eucast rules fix, unique()

R/disk.R

@@ -177,3 +177,12 @@ c.disk <- function(x, ...) {
   attributes(y) <- attributes(x)
   y
 }
+
+#' @method unique disk
+#' @export
+#' @noRd
+unique.disk <- function(x, incomparables = FALSE, ...) {
+  y <- NextMethod()
+  attributes(y) <- attributes(x)
+  y
+}