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 <fis...@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@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
______________________________________________
R-help@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.
