[r] R - test if first occurrence of string1 is followed by string2