se não eu começo a r

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