Removing String Parts Between Substrings When Substrings Occur Multiple Times in R: A Regex Solution