diff --git a/R/mod_modalTransfo.R b/R/mod_modalTransfo.R
index 4360005b28af2fb6a09ff25d517b42f098cf555c..a1f7f4d2bee2d16aba88cc9bd3d57134a7f44252 100644
--- a/R/mod_modalTransfo.R
+++ b/R/mod_modalTransfo.R
@@ -240,7 +240,7 @@ transform_wrapper <- function(physeq, fun, args) {
   if (fun == "tax_spread") physeq <- tax_spread(physeq, pattern = args)
   if (fun == "rarefy_even_depth") physeq <- rarefy_even_depth(physeq, sample.size = args)
   if (fun == "transform_sample_counts") {
-    trans <- function(x, args) {
+    trans <- function(x) {
       switch(args,
              prop = x / sum(x),
              sqrt = sqrt(x),