se não eu começo a r
> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE
hanux
> startsWith("what", "wha")
[1] TRUE
> startsWith("what", "ha")
[1] FALSE