From jerome@hivnet.ubc.ca  Tue Jul 23 22:08:38 2002
From: jerome@hivnet.ubc.ca (Jerome Asselin)
Date: Tue, 23 Jul 2002 14:08:38 -0700
Subject: sub() and gsub() (PR#1826)
In-Reply-To: <Pine.LNX.4.31.0207232157310.24536-100000@gannet.stats>
References: <Pine.LNX.4.31.0207232157310.24536-100000@gannet.stats>
Message-ID: <200207232108.g6NL8cW03932@localhost.hivnet.ubc.ca>


Yes. I immediately noticed it when I viewed my bug report on the 
internet. Those characters appeared blank on my screen before I 
submitted the bug report. I tried to submit a change for this bug, but 
perhaps I don't have the privilege to do so. Sorry about this...

Sincerely,
Jerome Asselin

On Tuesday 23 July 2002 14:01, you wrote:
> Those are not blanks!  You have character <A0> in there. less on your
> email gives me
>
> > x <- structure(c(1, 3, 4, 5), class = "factor",
>
> +      .Label = c("1 ", "2 ", "3 ", "4<A0>", "5<A0>"))
>
> > y <- as.character(x)
> > y
>
> [1] "1 " "3 " "4<A0>" "5<A0>"
>
> > gsub(" ","",y)
>
> [1] "1"  "3"  "4<A0>" "5<A0>"
>
> which is correct.
>
> Pilot error, I believe ....
>
> On Tue, 23 Jul 2002 jerome@hivnet.ubc.ca wrote:
> > Full_Name: Jerome Asselin
> > Version: 1.5.1
> > OS: linux redhat 7.2
> > Submission from: (NULL) (142.103.173.179)
> >
> >
> >
> > gsub() return different answers depending on how the input
> > variables were created. Here is an example of code that
> > replicates the problem. The vectors y and yy appear to be
> > the same, but gsub() doesn't return the same answer.
> > It should remove all the blanks when I use the vector y,
> > but it doesn't remove them all. I have also tested that
> > the same problem occurs if sub() is used instead of gsub().
> >
> > x <- structure(c(1, 3, 4, 5), class = "factor",
> >      .Label = c("1 ", "2 ", "3 ", "4", "5"))
> > y <- as.character(x)
> > y
> > gsub(" ","",y)
> >
> > yy <- c("1 ","3 ","4 ","5 ")
> > yy
> > gsub(" ","",yy)
> >
> >
> > Below is the output that I have when I execute those commands.
> >
> > > x <- structure(c(1, 3, 4, 5), class = "factor",
> >
> > +      .Label = c("1 ", "2 ", "3 ", "4", "5"))
> >
> > > y <- as.character(x)
> > > y
> >
> > [1] "1 " "3 " "4" "5"
> >
> > > gsub(" ","",y)
> >
> > [1] "1"  "3"  "4" "5"
> >
> > > yy <- c("1 ","3 ","4 ","5 ")
> > > yy
> >
> > [1] "1 " "3 " "4 " "5 "
> >
> > > gsub(" ","",yy)
> >
> > [1] "1" "3" "4" "5"
> >
> >
> >
> > -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
> >.-.-.-.-.-.- r-devel mailing list -- Read
> > http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info",
> > "help", or "[un]subscribe"
> > (in the "body", not the subject !)  To:
> > r-devel-request@stat.math.ethz.ch
> > _._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
> >._._._._._._

-- 
"According to the latest figures, 43% of all statistics are totally 
worthless."
--

Jerome Asselin (Jrme)
Statistical Analyst
British Columbia Centre for Excellence in HIV/AIDS
St. Paul's Hospital
608 - 1081 Burrard Street
Vancouver, British Columbia
CANADA V6Z 1Y6

Email: jerome@hivnet.ubc.ca
Phone: 604 806-9112   Fax: 604 806-9044
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._


sub() and gsub() (PR#1826)
Jerome Asselin