packBits (PR#9374)

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