# HG changeset patch
# User davidecangelosi
# Date 1558707357 14400
# Node ID 254114751c2e34da7bcb0ab76c131b47925d36be
# Parent  5e8bf316343d89e55b190800b23ee8dfc415535e
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit f13c9430052e43a372b0bf311a663498ff79b4fe

diff -r 5e8bf316343d -r 254114751c2e pipe-t.R
--- a/pipe-t.R	Fri May 24 09:26:43 2019 -0400
+++ b/pipe-t.R	Fri May 24 10:15:57 2019 -0400
@@ -402,7 +402,7 @@
         else {
             data[data %in% nas | is.na(data) | data == 0] <- na.value
         }
-        X[, cols] <- suppressWarnings(apply(data, 2, function(x) as.numeric(as.character(x))))
+        X[, cols] <- suppressWarnings({apply(data, 2, function(x) as.numeric(as.character(x)))})
         if ("flag" %in% names(column.info)) {
             flags <- matrix(sample[, column.info[["flag"]]],
                 ncol = n.data[i])