Mercurial > repos > guerler > charts

changeset 59:5164a18d0916 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author guerler
date Tue, 17 Jun 2014 07:52:40 -0400
parents 96897d619aaf
children e193d0f75f41
files charts.r
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/charts.r	Mon Jun 16 10:58:10 2014 -0400
+++ b/charts.r	Tue Jun 17 07:52:40 2014 -0400
@@ -94,8 +94,15 @@
     writeLines(header_columns, output)
     writeLines('#', output)
     
+    # pad columns
+    rows <- max(unlist(lapply(l, length)))
+    padded <- lapply(l, function(col) {
+        length(col) = rows;
+        col
+    })
+    
     # write table
-    write.table(l, file=output, row.names=FALSE, col.names = FALSE, quote=FALSE, sep='\t')
+    write.table(padded, file=output, row.names=FALSE, col.names = FALSE, quote=FALSE, sep='\t')
     
     # close file
     close(output)