fix one sample error in filter_taxa of microtable

ChiLiubio · Nov 8, 2024 · 614526a · 614526a
1 parent 6142be4
commit 614526a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/microtable.R b/R/microtable.R
@@ -180,7 +180,7 @@ microtable <- R6Class(classname = "microtable",
 				if(length(filter_names) == nrow(raw_otu_table)){
 					stop("All features are filtered! Please adjust the parameters")
 				}
-				new_table <- raw_otu_table[! rownames(raw_otu_table) %in% filter_names, ]
+				new_table <- raw_otu_table[! rownames(raw_otu_table) %in% filter_names, , drop = FALSE]
 			}
 			self$otu_table <- new_table
 			self$tidy_dataset()