[Rd] packBits (PR#9374)

[Duncan Murdoch]

On 11/21/2006 12:09 AM, prokaj at cs.elte.hu wrote:
> Full_Name: Prokaj Vilmos
> Version: R 2-4-0
> OS: Windows
> Submission from: (NULL) (193.224.79.8)
> 
> 
> PackBits(rbinom(32,1,0.5)==1,"integer")
> does not work. 
> 
> z<-packBits(rbinom(32,1,.5)==1,"integer")
> Error in packBits(x, type) : argument 'x' must be raw, integer or logical
> 
> 
> Taking a closer look at the C code 
> main/character.c  do_packBits rutin
> one can find the following checking
> 
>  if (TYPEOF(x) != RAWSXP && TYPEOF(x) != RAWSXP && TYPEOF(x) != INTSXP)
>      errorcall(call, _("argument 'x' must be raw, integer or logical"));
> 
> It's obvious that some of the RAWSXP should be LGLSXP

No need for me to fix this:  Brian Ripley got there first.

Duncan Murdoch