From 2a5b6ca3130bba418bb29a28598f6e1876899223 Mon Sep 17 00:00:00 2001
From: metabaRfactory <46556528+metabaRfactory@users.noreply.github.com>
Date: Mon, 3 Feb 2025 14:33:36 -0300
Subject: [PATCH] fix bug in aggregate_motus.R

---
 R/aggregate_motus.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/aggregate_motus.R b/R/aggregate_motus.R
index ccbefce..0b873bc 100644
--- a/R/aggregate_motus.R
+++ b/R/aggregate_motus.R
@@ -69,7 +69,7 @@ aggregate_motus <- function(metabarlist,
 
     pcrs.out <- metabarlist$pcrs[rownames(reads.out), ]
     sample.out <-
-      metabarlist$samples[unique(metabarlist$pcrs$sample_id[pcrs.out$type == "sample"]), ]
+      metabarlist$samples[unique(metabarlist$pcrs$sample_id[pcrs.out$type == "sample"]), , drop=FALSE]
 
     metabarlist.out <-
       metabarlist_generator(