Mercurial > repos > davidecangelosi > pipe_t
changeset 26:f008adc272a2 draft
planemo upload for repository https://github.com/igg-molecular-biology-lab/pipe-t.git commit edd961b682ee4b19ba87eb7bd63ad169aa9678ea
| author | davidecangelosi |
|---|---|
| date | Fri, 31 May 2019 08:09:25 -0400 |
| parents | 46cb147d53df |
| children | 5618ea415c4a |
| files | pipe-t.R |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/pipe-t.R Fri May 31 08:08:04 2019 -0400 +++ b/pipe-t.R Fri May 31 08:09:25 2019 -0400 @@ -288,7 +288,7 @@ .readCtCFX <- function(readfile=readfile, n.data=n.data, i=i, nspots=nspots, ...) { # Read data, skip the required lines - out <- read.csv(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], strip.white=TRUE, ...) + out <- read.delim(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], strip.white=TRUE, ...) # Return out } # .readCtCFX @@ -297,7 +297,7 @@ function(readfile=readfile, n.data=n.data, i=i, nspots=nspots, ...) { # Read data - out <- read.csv(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], strip.white=TRUE, ...) + out <- read.delim(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], strip.white=TRUE, ...) # Regard those marked as outliers as "Unreliable" out$ThroughHole.Outlier[out$ThroughHole.Outlier=="False"] <- "OK" out$ThroughHole.Outlier[out$ThroughHole.Outlier=="True"] <- "Unreliable" @@ -314,7 +314,7 @@ if (length(n.header)==0) n.header <- 0 # Read data, skip the required lines - out <- read.csv(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], skip=n.header, strip.white=TRUE, ...) + out <- read.delim(file=readfile, header=TRUE, as.is=TRUE, nrows=nspots*n.data[i], skip=n.header, strip.white=TRUE, ...) # Convert the calls into flags out$Call[out$Call=="Pass"] <- "OK" out$Call[out$Call=="Fail"] <- "Undetermined"