Hi,
Consider the row.names of
a <- data.frame(x = runif(150000))
> row.names(a)[99998:100002]
[1] "99998" "99999" "1e+05" "100001" "100002"
not wrong, but there's room for improvement. If we replace the
expression
if (length(row.names) == 0)
row.names <- seq(length = nr)
which creates a non-integer object row.names by
if (length(row.names) == 0)
row.names <- if(nr>0) 1:nr else integer(0)
(or something to that effect) to create an integer row.names
that when coerced to character will produce
b <- data.frame(x = runif(150000))
> row.names(b)[99998:100002]
[1] "99998" "99999" "100000" "100001" "100002"
These labels have a more uniform format.
Could a change like this be made to data.frame()?
Regards,
David > version _ platform i686-pc-linux-gnu arch i686 os linux-gnu system i686, linux-gnu status major 1 minor 8.1 year 2003 month 11 day 21 language R