fixing plot function

slds-lmu · Apr 5, 2019 · 55be3ff · 55be3ff
1 parent 813c0fe
commit 55be3ff
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/plotting.R b/R/plotting.R
@@ -15,7 +15,8 @@
 #' @export
 paretoEdges <- function(fitness, refpoint) {
   fitness <- as.matrix(t(fitness))
-  front <- fitness[, nondominated(fitness), drop = FALSE]
+  if (ncol(fitness) > 1)  # TODO: can go when https://github.com/jakobbossek/ecr2/issues/120 is fixed
+    front <- fitness[, nondominated(fitness), drop = FALSE]
   front <- front[, order(front[1, ]), drop = FALSE]
   frontpoints <- sapply(seq_len(ncol(front) * 2 - 1) + 1, function(twicecol) {
     pmax(front[, floor(twicecol / 2), drop = FALSE],