R Substring After Character List