--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/inspect.R	Sun Sep 12 19:48:48 2021 +0000
@@ -0,0 +1,25 @@
+
+suppressWarnings(suppressPackageStartupMessages(library(xbioc)))
+suppressWarnings(suppressPackageStartupMessages(library(MuSiC)))
+
+args <- commandArgs(trailingOnly = TRUE)
+source(args[1])
+
+printout <- function(text) {
+    if (typeof(text) %in% c("list", "vector")) {
+        write.table(text, file = outfile_tab, quote = F, sep = "\t",
+                    col.names = NA)
+    } else {
+        ## text
+        capture.output(text, file = outfile_tab)  # nolint
+    }
+}
+
+if (inspector %in% c("print", "pData", "fData", "dims", "experimentData",
+                     "exprs", "signature", "annotation", "abstract")) {
+    op <- get(inspector)
+    tab <- op(rds_eset)
+    printout(tab)
+} else {
+    stop(paste0("No such option:", inspector))
+}