fix bug in aggregate_motus.R

metabaRfactory · Feb 3, 2025 · 2a5b6ca · 2a5b6ca
1 parent 23f3c8e
commit 2a5b6ca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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(