[Rd] read.csv

[Petr Savicky]

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]] <-