To test if a string starts with a certain pattern, more efficient than using substr() and testing equality:

x1 <- "foobar"
startsWith(x1, "foo")
# [1] TRUE