функция, которая извлекает общую непрерывную последовательность в R

Question

Скажите пожалуйста, есть ли функция, которая извлекает общую непрерывную последовательность символов из вектора символов. Т.е., например, из вектора строки на входе: c ("mom soap frame", "sweet mom", "dad, mom, me", "`mom`ent") получить выходной вектор c ("mom")

Answer 1

v <- c ("mom soap frame", "sweet mom", "dad, mom, me", "moment")

library(PTXQC)
LCSn(v, min_LCS_length = 0)

#[1] "mom"