Если нет, я начинаю

> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE
hanux