From savicky at cs.cas.cz  Thu Jun 25 11:29:04 2009
From: savicky at cs.cas.cz (Petr Savicky)
Date: Thu, 25 Jun 2009 11:29:04 +0200
Subject: [Rd] read.csv
In-Reply-To: <20090625092325.GA13239@cs.cas.cz>
References: <971536df0906141156j78b5570ajf08257c88098d7d8@mail.gmail.com>
	<20090625092325.GA13239@cs.cas.cz>
Message-ID: <20090625092904.GB13239@cs.cas.cz>

I am sorry for not including the attachment mentioned in my
previous email. Attached now. Petr.
-------------- next part --------------
--- R-devel/src/library/utils/R/readtable.R	2009-05-18 17:53:08.000000000 +0200
+++ R-devel-readtable/src/library/utils/R/readtable.R	2009-06-25 10:20:06.000000000 +0200
@@ -143,9 +143,6 @@
     names(what) <- col.names
 
     colClasses[colClasses %in% c("real", "double")] <- "numeric"
-    known <- colClasses %in%
-                c("logical", "integer", "numeric", "complex", "character")
-    what[known] <- sapply(colClasses[known], do.call, list(0))
     what[colClasses %in% "NULL"] <- list(NULL)
     keep <- !sapply(what, is.null)
 
@@ -189,7 +186,7 @@
 	stop(gettextf("'as.is' has the wrong length %d  != cols = %d",
                      length(as.is), cols), domain = NA)
 
-    do <- keep & !known # & !as.is
+    do <- keep & !as.is
     if(rlabp) do[1L] <- FALSE # don't convert "row.names"
     for (i in (1L:cols)[do]) {
         data[[i]] <-


[Rd] read.csv
Petr Savicky