R:如何提取某个关键词组前后的子串？

def extract_substring(text, keyword):
    position = text.find(keyword)
    if position != -1:
        substring_before = text[:position]
        substring_after = text[position + len(keyword):]
        return substring_before, substring_after
    else:
        return None

# 测试代码
text = "这是一个示例文本，关键词是云计算"
keyword = "云计算"
result = extract_substring(text, keyword)
if result:
    substring_before, substring_after = result
    print("关键词前的子串：", substring_before)
    print("关键词后的子串：", substring_after)
else:
    print("关键词不存在于文本中")

关键词前的子串： 这是一个示例文本，关键词是
关键词后的子串：