changeset 1:185b0aba7d8e draft default tip

Uploaded

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/merge.R	Sun Dec 04 18:29:23 2016 -0500
@@ -0,0 +1,35 @@
+args <- commandArgs(trailingOnly = TRUE)
+
+files <- read.table(args[1], stringsAsFactors=F)
+
+my.read.table <- function(file) {
+    read.table(
+        file,
+        sep="\t",
+        stringsAsFactors=T,
+        header=as.logical(args[4])
+        )
+    }
+
+data <- NA;
+if (length(files) == 1) {
+    data <- my.read.table(files[1])
+    }
+else {
+    data_list <- apply(files, 1, my.read.table)
+    data <- Reduce(function(x,y) { rbind(x,y) }, data_list)
+    }
+
+contig_order <- read.table(args[2], stringsAsFactors=F)[,1]
+data[,1] <- factor(data[,1], levels=contig_order)
+data <- data[order(data[,1]),]
+data[,1] <- as.character(data[,1])
+
+write.table(
+    x=data,
+    file=args[3],
+    sep ="\t",
+    quote=F,
+    row.names=F,
+    col.names=as.logical(args[4])
+    )