Re: [Rd] substitute(INDICES) in by.data.frame returns invalid multi-line name (PR#9108)

From: Duncan Murdoch <murdoch_at_stats.uwo.ca>
Date: Fri 28 Jul 2006 - 12:28:35 GMT

On 7/28/2006 7:53 AM, pkensche@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



R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel Received on Fri Jul 28 22:36:07 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Fri 28 Jul 2006 - 16:26:38 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.