comparison getOntology.R @ 1:f70f75e89890 draft default tip

"planemo upload for repository https://github.com/ImmPortDB/immport-galaxy-tools/tree/master/flowtools/flowcl commit d59d95d2bc6a64eb5c37b8291a7c314754c2067f"

1:f70f75e89890

#!/usr/bin/Rscript --vanilla
# Cell Ontology Module for Galaxy
# FlowCL
######################################################################
#                  Copyright (c) 2016 Northrop Grumman.
#                          All rights reserved.
######################################################################
#
# Version 1
# Cristel Thomas
#
#

suppressWarnings(suppressMessages(library(flowCL)))
suppressWarnings(suppressMessages(library(base)))

getOntology <- function(output_file, markers) {
  res <- flowCL(markers, ResetArch = TRUE)
  if (length(res) == 6) {
    report <- capture.output(res$Table)
    sink(output_file)
    cat(report, sep = "\n")
    sink()
  }
}

args <- commandArgs(trailingOnly = TRUE)
markers <- paste(args[2:length(args)], collapse="")
getOntology(args[1], markers)