R package for communicating with Laydi.

r-laydi/laydi.R

@@ -0,0 +1,30 @@
+
+write.ftsv <- function(data, con, name="unnamed_dataset", rowdim="rows", coldim="cols") {
+    /* If con is a file name, open it */
+    opened.here = FALSE
+    if (is.character(con)){
+        con = file(con, "w")
+        opened.here = TRUE 
+    }
+    
+    /* Substitute all whitespace with underscores in identifiers */
+    rows <- paste(gsub("\\s", "_", rownames(data)), collapse=" ")
+    cols <- paste(gsub("\\s", "_", colnames(data)), collapse=" ")
+
+    /* Write header */
+    writeLines(c("# type: dataset", 
+                 paste("# dimension:", rowdim, rows, collapse=' '), 
+                 paste("# dimension:", coldim, cols, collapse=' '), 
+                 paste("# name:", name, collapse=' '),
+                 ""),
+               con=con)
+
+    /* Write matrix */
+    write.table(data, file=con, col.names=FALSE, row.names=FALSE, sep="\t")
+
+    /* If con was a string, close file now */
+    if (opened.here)
+        close(con)
+}
+
+