Mercurial > repos > immport-devteam > check_fcs_headers
annotate getFCSheader.R @ 1:a5609a84ed16 draft default tip
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
author | azomics |
---|---|
date | Thu, 23 Jul 2020 08:14:29 -0400 |
parents | |
children |
rev | line source |
---|---|
1
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
1 #!/usr/bin/Rscript --vanilla |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
2 # FCS Headers Module for Galaxy |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
3 # FlowCore |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
4 ###################################################################### |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
5 # Copyright (c) 2016 Northrop Grumman. |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
6 # All rights reserved. |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
7 ###################################################################### |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
8 # |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
9 # Version 2 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
10 # May 2018 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
11 # Cristel Thomas |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
12 # |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
13 # |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
14 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
15 library(flowCore) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
16 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
17 getFCSChannels <- function(input_fcs) { |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
18 fcs <- read.FCS(input_fcs, transformation=F) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
19 return(colnames(fcs)) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
20 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
21 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
22 getFCSMarkers <- function(input_fcs){ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
23 ffcs <- read.FCS(input_fcs, transformation=F) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
24 fmarkers <- as.vector(pData(parameters(ffcs))$desc) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
25 return(fmarkers) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
26 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
27 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
28 getFCSMarkerNames <- function(output_file="", file_paths=vector(), |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
29 fcs_names=vector()) { |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
30 check_files <- sapply(file_paths, isFCSfile) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
31 channels <- lapply(file_paths[check_files], getFCSChannels) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
32 markers <- lapply(file_paths[check_files], getFCSMarkers) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
33 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
34 nb_col <- max(lengths(channels)) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
35 nc <- lapply(channels, `length<-`, nb_col) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
36 ct <- t(as.data.frame(nc)) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
37 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
38 nm <- lapply(markers, `length<-`, nb_col) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
39 mt <- t(as.data.frame(nm)) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
40 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
41 nb_files <- sum(check_files) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
42 Index <- rep(c("channels", "markers"), each=nb_files) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
43 Filename <- rep(fcs_names[check_files], 2) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
44 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
45 idx_nb <- seq(nb_col) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
46 ttt <- rbind(ct,mt) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
47 finalt <- cbind(Filename, Index, ttt) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
48 colnames(finalt)[3:length(colnames(finalt))] <- idx_nb |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
49 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
50 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
51 if (nb_files != length(file_paths)){ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
52 not_fcs <- fcs_names[!check_files] |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
53 new_df <- cbind(not_fcs, "Not a valid FCS file") |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
54 empty_frame <- data.frame(matrix("", nrow=length(not_fcs), ncol=nb_col), |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
55 stringsAsFactors = F) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
56 not_fcs_files <- cbind(new_df, empty_frame) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
57 colnames(not_fcs_files) <- colnames(finalt) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
58 new_final <- rbind(finalt, not_fcs_files) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
59 write.table(new_final, file=output_file, quote=F, row.names=F, col.names=T, |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
60 sep='\t', append=F) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
61 quit(save = "no", status = 10, runLast = FALSE) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
62 } else { |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
63 # output file |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
64 write.table(finalt, file=output_file, quote=F, row.names=F, col.names=T, |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
65 sep='\t', |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
66 append=F) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
67 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
68 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
69 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
70 ################################################################################ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
71 ################################################################################ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
72 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
73 args <- commandArgs(trailingOnly = TRUE) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
74 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
75 i <- 1 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
76 nb_files <- (length(args)-1) / 2 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
77 fcs_files <- character(nb_files) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
78 fcs_names <- character(nb_files) |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
79 for (j in 1:length(args)){ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
80 if (!j%%2){ |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
81 fcs_files[[i]] <- args[[j]] |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
82 fcs_names[[i]]<- args[[j+1]] |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
83 i <- i + 1 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
84 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
85 } |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
86 |
a5609a84ed16
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/check_fcs_headers commit e5be067c50262354a028bd03b77beb8369fb6fb1"
azomics
parents:
diff
changeset
|
87 getFCSMarkerNames(args[1], fcs_files, fcs_names) |