Если нет, я начинаю
> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE
hanux
> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE