From 813c0fe740ea461eb45e8a36b4f757ab18ff11ee Mon Sep 17 00:00:00 2001
From: mb706 <mlr.developer@mb706.com>
Date: Fri, 5 Apr 2019 14:32:12 +0200
Subject: [PATCH] bugfix

---
 R/plotting.R          | 4 ++--
 experiments/testmm.sh | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/R/plotting.R b/R/plotting.R
index 401919f..d32f5fc 100644
--- a/R/plotting.R
+++ b/R/plotting.R
@@ -18,8 +18,8 @@ paretoEdges <- function(fitness, refpoint) {
   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)],
-      front[, ceiling(twicecol / 2)])
+    pmax(front[, floor(twicecol / 2), drop = FALSE],
+      front[, ceiling(twicecol / 2), drop = FALSE])
   })
 
   resmat <- cbind(c(front[1, 1], refpoint[2]),
diff --git a/experiments/testmm.sh b/experiments/testmm.sh
index 671b1e5..96e2188 100755
--- a/experiments/testmm.sh
+++ b/experiments/testmm.sh
@@ -1,5 +1,5 @@
 #!/bin/sh
-export RNG=$1
+sleep 9999999
 Rscript - > "/projects/user/mosmafstraces/run_${RNG}.out" 2>&1 <<EOF
 options(warn = 1)
 suppressMessages({