[Seqinr-commits] r1571 - pkg/R

[noreply at r-forge.r-project.org]

Author: lobry
Date: 2009-03-31 17:51:08 +0200 (Tue, 31 Mar 2009)
New Revision: 1571

Modified:
   pkg/R/readBins.R
Log:
more tolerance to extra columns in data

Modified: pkg/R/readBins.R
===================================================================
--- pkg/R/readBins.R	2009-03-30 18:40:46 UTC (rev 1570)
+++ pkg/R/readBins.R	2009-03-31 15:51:08 UTC (rev 1571)
@@ -17,8 +17,8 @@
   	  locstops <- c(iMark[-1] - 1, length(locsrc))
   	  for(j in seq_len(length(iMark))){
   	  	  mycon <- textConnection(locsrc[locstarts[j]:locstops[j]])
-  	  	  locres[[j]] <- read.table(mycon, sep = "\t")
-  	  	  colnames(locres[[j]]) <- colnames
+  	  	  locres[[j]] <- read.table(mycon, sep = "\t", fill = TRUE)
+  	  	  colnames(locres[[j]])[1:length(colnames)] <- colnames
   	  	  close(mycon)
   	  	  names(locres)[j] <- unlist(strsplit(locsrc[iMark[j]], split = "\t"))[2]
   	  	}