[R] Bug in formals<-

[Gabor Grothendieck]

This seems to be related to using c to define transtab.
If we use list in place of c then it displays ok:

> h <- function(x, trantab) transtab[x]
> formals(h) <- list(x = numeric(0), transtab = c(cat = 6, dog = 5))
> print(h) # bad display
function (x = numeric(0), transtab = c(6, 5))
transtab[x]
> h("cat") # runs ok
cat
  6
> formals(h) <- list(x = numeric(0), transtab = list(cat = 6, dog = 5))
> print(h) # now display is ok
function (x = numeric(0), transtab = list(cat = 6, dog = 5))
transtab[x]
> h("cat") # runs ok
$cat
[1] 6



On 9/26/06, Frank E Harrell Jr <f.harrell at vanderbilt.edu> wrote:
> Deepayan Sarkar wrote:
> > On 9/26/06, Frank E Harrell Jr <f.harrell at vanderbilt.edu> wrote:
> >> I think this is new since a previous version of R:
> >>
> >>  > h <- function(x, trantab) trantab[x]
> >>  > w <- 6:4
> >>  > names(w) <- c('cat','dog','giraffe')
> >>  > w
> >>      cat     dog giraffe
> >>        6       5       4
> >>  >
> >>  > formals(h) <- list(x=numeric(0), trantab=w)
> >>  > h
> >> function (x = numeric(0), trantab = c(6, 5, 4))
> >> trantab[x]
> >>
> >> You can see that the names have been dropped from trantab's default
> >> values.
> >
> > Are you sure? I get
> >
> >> formals(h)
> > $x
> > numeric(0)
> >
> > $trantab
> >    cat     dog giraffe
> >      6       5       4
> >
> >> h(1)
> > cat
> >  6
> >
> > R version 2.4.0 beta (2006-09-21 r39463)
> > x86_64-unknown-linux-gnu
> >
> > -Deepayan
>
> Deepayan -
>
> You are correct.  h('cat') is 6 as intended.  I just looked at the
> function definition - the names attribute doesn't show for some reason.
>  I was expecting function(..., trantab=c(cat=6, ..).
>
> Thanks
>
> Frank
>
> >
> >
> >> Version 2.3.1 (2006-06-01)
> >> i486-pc-linux-gnu
> >>
> >> attached base packages:
> >> [1] "grid"      "methods"   "stats"     "graphics"  "grDevices" "utils"
> >> [7] "datasets"  "base"
> >>
> >> other attached packages:
> >>    lattice   acepack     Hmisc
> >> "0.13-10" "1.3-2.2"  "3.0-12"
> >>
> >
>
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>