Mercurial > repos > immport-devteam > flow_overview
comparison getOntology.R @ 1:b5453d07f740 draft default tip
"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/flow_overview commit 65373effef15809f3db0e5f9603ef808f4110aa3"
| author | azomics |
|---|---|
| date | Wed, 29 Jul 2020 17:03:53 -0400 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 0:8283ff163ba6 | 1:b5453d07f740 |
|---|---|
| 1 #!/usr/bin/Rscript --vanilla | |
| 2 # Cell Ontology Module for Galaxy | |
| 3 # FlowCL | |
| 4 ###################################################################### | |
| 5 # Copyright (c) 2016 Northrop Grumman. | |
| 6 # All rights reserved. | |
| 7 ###################################################################### | |
| 8 # | |
| 9 # Version 1 | |
| 10 # Cristel Thomas | |
| 11 # | |
| 12 # | |
| 13 | |
| 14 suppressWarnings(suppressMessages(library(flowCL))) | |
| 15 suppressWarnings(suppressMessages(library(base))) | |
| 16 | |
| 17 getOntology <- function(output_file, markers) { | |
| 18 res <- flowCL(markers, ResetArch = TRUE) | |
| 19 if (length(res) == 6) { | |
| 20 report <- capture.output(res$Table) | |
| 21 sink(output_file) | |
| 22 cat(report, sep = "\n") | |
| 23 sink() | |
| 24 } | |
| 25 } | |
| 26 | |
| 27 args <- commandArgs(trailingOnly = TRUE) | |
| 28 markers <- paste(args[2:length(args)], collapse="") | |
| 29 getOntology(args[1], markers) |