Removing old r-laydi directory.

r-laydi/laydi.R

@@ -1,30 +0,0 @@
-
-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)
-}
-
-