[R] help with string split in R

[Jeff Newmiller]

?sub
---------------------------------------------------------------------------
Jeff Newmiller                        The     .....       .....  Go Live...
DCN:<jdnewmil at dcn.davis.ca.us>        Basics: ##.#.       ##.#.  Live Go...
                                      Live:   OO#.. Dead: OO#..  Playing
Research Engineer (Solar/Batteries            O.O#.       #.O#.  with
/Software/Embedded Controllers)               .OO#.       .OO#.  rocks...1k
--------------------------------------------------------------------------- 
Sent from my phone. Please excuse my brevity.

CompBiol ATL <alongway at gmail.com> wrote:

>#I want to remove '_alpha' in a vector of strings
>myInput = c( "afg3_alpha", "alg12_alpha", "dbp3_alpha",  "elp4_alpha",
> "fob1_alpha",  "gpr1_alpha")
>
>#my current solution
>tmpsplit = strsplit(myInput, '_')
>tmp = NA
>for (item in tmpsplit){
>  tmp = c(tmp, item[1])
>}
>results1  = tmp[-1];
>#this is what I need, but I want a better solution.
>
>#Here is what I come up with, but it is pretty awkward
>tmp3 = lapply(myInput, FUN=function(x){strsplit(x, '_')[[1]][1]})
>results2 = unlist(tmp3)
>
>#Please help me revise the above loop. Thanks, -- Hong
>
>	[[alternative HTML version deleted]]
>
>______________________________________________
>R-help at r-project.org 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.