比较两个字符串并查找差异并在R中显示它们以便于查看(类似于git diff)？

string1 <- "Hello, world!"
string2 <- "Hello, everyone!"

# 比较两个字符串并查找差异
diff <- difflib::ndiff(strsplit(string1, "")[[1]], strsplit(string2, "")[[1]])

# 在R中显示差异
for (line in diff) {
  if (substr(line, 1, 1) == "+") {
    cat("\033[32m", line, "\033[0m\n")  # 绿色表示新增内容
  } else if (substr(line, 1, 1) == "-") {
    cat("\033[31m", line, "\033[0m\n")  # 红色表示删除内容
  } else {
    cat(line, "\n")  # 没有差异的内容
  }
}