Readme

Hello @mahendra-mariadassou, I've started writing a little documentation. Can you take a look? Thanks in advance

R/mod_modalTransfo.R

@@ -90,7 +90,7 @@ mod_modalTransfo_server <- function(id, r) {
           if (module$fun_transfo == "prune_samples") {
             glue::glue("Filter based on sample names (to keep: {str_flatten_comma(module$var_transfo)})")
           } else if (module$fun_transfo == "tax_glom") {
-            glue::glue("Agglomerate taxa ok taxonomic rank *{module$var_transfo}*")
+            glue::glue("Agglomerate taxa on taxonomic rank *{module$var_transfo}*")
           } else if (module$fun_transfo == "tax_spread") {
             glue::glue("Spread taxonomy according to last known taxa, to remove unknown and multi-affiliations (pattern: {str_flatten_comma(module$var_transfo)})")
           } else if (module$fun_transfo == "rarefy_even_depth") {