`str_like()` needs to escape more regex special characters

[hadley]

> stringr:::like_to_regex("a.c%")
[1] "^a.c.*$"
str_like(c("a.c", "abc"), "a.c%")
#> [1]  TRUE  TRUE

the second shouldn't match