changeset 16:254114751c2e draft

planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit f13c9430052e43a372b0bf311a663498ff79b4fe
author davidecangelosi
date Fri, 24 May 2019 10:15:57 -0400
parents 5e8bf316343d
children 81f51d722102
files pipe-t.R
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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])