如何从R中的特定字符之前的字符串中删除所有文本?