add normalization status message

zdk123 · Oct 14, 2023 · 8b55857 · 8b55857
1 parent 4066f6a
commit 8b55857
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/spiec-easi.R b/R/spiec-easi.R
@@ -66,9 +66,9 @@ spiec.easi.otu_table <- function(data, ...) {
     types <- attr(data, 'types')
     if (is.null(types)) types <- get_types(data)
     ## all columns are counts or comp - normalize ##
-    # TODO: create message if dataset is partially normalized
     comp <- is.normalized(data)
     if (comp || all(grepl("count", types))) {
+      message(sprintf("  Compositional or count dataset detected... %s normalizing", method))
       if (comp & (method == "plcr")) {
         message("input data is already total-sum-normalized, Is pseudocount needed?")
       }