[R] Finding the common portion of strings

[Henrique Dallazuanna]

Try this:

intersect2 <- function (x, y)
{
    y <- as.vector(y)
    y[match(as.vector(x), y, 0L)]
}

paste(Reduce(intersect2, strsplit(OBJECTS, NULL)), collapse = '')

On Fri, Mar 25, 2011 at 2:27 PM, Dennis Fisher <fisher at plessthan.com> wrote:
> Colleagues
>
> R: 2.12.2
> OS X
>
> I have a set of text objects in the form (I am showing 3 of what is more likely to be 20 or so):
>        OBJECTS <- c("abcSOMETHINGCOMMONegf", "xSOMETHINGCOMMONyz", "SOMETHINGCOMMONnme")
>
> As you can see, all contain "SOMETHINGCOMMON" and the position varies.  But, I don't know what that "SOMETHINGCOMMON" is.
>
> Is there an efficient means to find the common string of characters between all of the objects?
>
> Dennis
>
> Dennis Fisher MD
> P < (The "P Less Than" Company)
> Phone: 1-866-PLessThan (1-866-753-7784)
> Fax: 1-866-PLessThan (1-866-753-7784)
> www.PLessThan.com
>
> ______________________________________________
> 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.
>



-- 
Henrique Dallazuanna
Curitiba-Paraná-Brasil
25° 25' 40" S 49° 16' 22" O