On 7/28/2006 7:53 AM, pkensche at cmbi.ru.nl wrote:
Full_Name: Philip Kensche Version: 2.3.0
This version is obsolete, but the error does occur in the current R-patched.
OS: Redhat Linux
Submission from: (NULL) (131.174.88.204)
Try this:
--
x <- data.frame(the.first.column=c("A"), the.second.column=c("b"),
the.third.column=c("d"), and.many.more.columns=c("e"))
by(x, paste(x$the.first.column, x$the.second.column, x$and.many.more.columns,
sep="."), function (y) { print("Hello!") })
--
The following error message is produced on my system:
Error in "names<-.default"(`*tmp*`, value = c("paste(x$the.first.column,
x$the.second.column, x$and.many.more.columns, ", :
'names' attribute [2] must be the same length as the vector [1]
Calling substitute(INDICES) after debug(by.data.frame) returns:
--
paste(x$the.first.column, x$the.second.column, x$and.many.more.columns,
sep = ".")
--
i.e. the sep = ... is on the next line.
The problem is that names(IND) <- deparse(substitute(INDICES)) wraps the long expression; a patch is to replace that line with names(IND) <- deparse(substitute(INDICES), width=500) which would need a much longer line to trigger the error, or names(IND) <- deparse(substitute(INDICES))[1] I'll do the latter, and look for other instances of the same sort of thing. Duncan Murdoch