Mercurial > repos > bgruening > music_deconvolution
comparison scripts/inspect.R @ 0:7de1b99d16ed draft
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/music/ commit 08c6fd3885bdfbf8b5c3f4dcc2d04729b577e3e1"
| author | bgruening |
|---|---|
| date | Sun, 12 Sep 2021 19:46:53 +0000 |
| parents | |
| children | f7ade72ba78c |
comparison
equal
deleted
inserted
replaced
| -1:000000000000 | 0:7de1b99d16ed |
|---|---|
| 1 | |
| 2 suppressWarnings(suppressPackageStartupMessages(library(xbioc))) | |
| 3 suppressWarnings(suppressPackageStartupMessages(library(MuSiC))) | |
| 4 | |
| 5 args <- commandArgs(trailingOnly = TRUE) | |
| 6 source(args[1]) | |
| 7 | |
| 8 printout <- function(text) { | |
| 9 if (typeof(text) %in% c("list", "vector")) { | |
| 10 write.table(text, file = outfile_tab, quote = F, sep = "\t", | |
| 11 col.names = NA) | |
| 12 } else { | |
| 13 ## text | |
| 14 capture.output(text, file = outfile_tab) # nolint | |
| 15 } | |
| 16 } | |
| 17 | |
| 18 if (inspector %in% c("print", "pData", "fData", "dims", "experimentData", | |
| 19 "exprs", "signature", "annotation", "abstract")) { | |
| 20 op <- get(inspector) | |
| 21 tab <- op(rds_eset) | |
| 22 printout(tab) | |
| 23 } else { | |
| 24 stop(paste0("No such option:", inspector)) | |
| 25 } |