refactor: remove Rmd files and keep md versions only

R/generate_taxa_test_single.R

@@ -150,18 +150,18 @@ generate_taxa_test_single <- function(data.obj,
       mStat_filter(prev.filter = prev.filter,
                    abund.filter = abund.filter)
 
-    # 在运行 linda 之前添加检查
+    # Add a check before running linda
     if (nrow(otu_tax_agg_filter) == 0 || ncol(otu_tax_agg_filter) == 0) {
       warning("No features remain after filtering. Consider using less stringent filter thresholds.")
-      return(list())  # 返回空列表
+      return(list())
     }
 
     # Add this check before linda analysis
     if (any(colSums(otu_tax_agg_filter) == 0)) {
       keep_samples <- colSums(otu_tax_agg_filter) > 0
       if (sum(keep_samples) == 0) {
         warning("No samples remain after filtering.")
-        return(list())  # 返回空列表
+        return(list())
       }
       otu_tax_agg_filter <- otu_tax_agg_filter[, keep_samples]
       allvars <- names(meta_tab)
@@ -267,4 +267,4 @@ generate_taxa_test_single <- function(data.obj,
   names(test.list) <- feature.level
 
   return(test.list)
-}
+}