From e873075ebf5b2c85f4a42f211660390dffb3e3d4 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Tue, 2 Jul 2024 16:39:38 +0200
Subject: [PATCH] =?UTF-8?q?Fixed=20`greedyMix()`=20for=20BAPS=20files=20(#?=
 =?UTF-8?q?24)=20=F0=9F=8D=BE?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/writeMixtureInfo.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/writeMixtureInfo.R b/R/writeMixtureInfo.R
index 65bdbee..79294e5 100644
--- a/R/writeMixtureInfo.R
+++ b/R/writeMixtureInfo.R
@@ -257,8 +257,8 @@ writeMixtureInfo <- function(
   }
 
   partitionSummary <- sortrows(partitionSummary, 2)
-  partitionSummary <- partitionSummary[size(partitionSummary, 1):1, ]
-  partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), ]
+  partitionSummary <- partitionSummary[size(partitionSummary, 1):1, , drop = FALSE]
+  partitionSummary <- partitionSummary[matlab2r::find(partitionSummary[, 2] > -1e49), , drop = FALSE]
   if (size(partitionSummary, 1) > 10) {
     vikaPartitio <- 10
   } else {