如何在R中匹配模式后提取一定长度的子串？

# 原始字符串
string <- "Hello, world! This is a test string."

# 匹配模式
pattern <- "test"

# 使用grep()函数匹配模式，返回匹配到的字符串的索引位置
matches <- grep(pattern, string)

# 如果有匹配到的字符串
if (length(matches) > 0) {
  # 使用regexpr()函数获取匹配到的字符串的起始位置和长度
  match_info <- regexpr(pattern, string)
  
  # 提取指定长度的子串
  start <- attr(match_info, "match.length") + attr(match_info, "capture.start") - 1
  end <- start + 10  # 提取10个字符的子串
  substring <- substr(string, start, end)
  
  # 输出结果
  print(substring)
} else {
  print("No match found.")
}