Modified:
/trunk/RPostgreSQL/R/PostgreSQLSupport.R
=======================================
--- /trunk/RPostgreSQL/R/PostgreSQLSupport.R Sat Dec 3 06:20:39 2011
+++ /trunk/RPostgreSQL/R/PostgreSQLSupport.R Sat Dec 3 19:59:10 2011
@@ -410,7 +410,7 @@
cnt <- dbGetRowCount(res)
nrec <- length(rel[[1]])
indx <- seq(from = cnt - nrec + 1, length = nrec)
- attr(rel, "row.names") <- as.character(indx)
+ attr(rel, "row.names") <- as.integer(indx)
if(usingR())
class(rel) <- "data.frame"
else