显示文件或对象之间的差异

Question

R 中有没有一种方法可以比较对象并返回有用的信息，例如差异在哪里？我需要比较文件，但愿意将它们读入 data.frames。这可能可以通过命令行更好地处理，但我想将我的测试封装到一个 R 脚本中。我的下一次尝试是使用 ddply 将每一行发送到 Compare() 函数并返回“FALSE”行的行号，但这仅在您进行一次插入或删除之前有效，然后其他所有内容都变为“FALSE”。

谢谢。

编辑：文件包含数字和字符数据的组合。

Answer 1

我知道已经有一段时间了，但是如果其他人偶然发现了这一点...

如果您只想查看差异，而不是在代码中使用它们，请参阅包 diffr。

install.packages("diffr")
library(diffr)
diffr("file1.txt", "file2.txt", contextSize = 0, minJumpSize = 500)

它并排显示两个文件的全部内容，并在 RStudio 查看器中突出显示差异。

Answer 2

system(paste("fc",,, "> Difference.txt"))

似乎有效。我的 Google-fu 今天关闭了。

Answer 3

由于听起来您的文件是纯文本，因此命令行 diff 工具非常适合此操作。 mac 和 unix 上都有一个内置的。语法很简单：

$ diff <file1> <file2>

还有许多其他可用的，以及针对不同操作系统的 GUI 包装器。在 Mac 上，我喜欢 Kaleidscope 和 Delta Walker 如果您需要合并功能。在 Windows 上，GUI 标准是超越比较。

Answer 4

我已经能够在 Rmarkdown 中使用以下代码插入 diffr 函数的输出：

---
title: "Untitled"
output: html_document
---

## Including Plots

You can also embed plots, for example:

{r pressure, echo=FALSE}
library(diffr)

file1 <- tempfile()
writeLines("hello, world!\n", con = file1)
file2 <- tempfile()
writeLines(paste0("hello world?\nI don't get it\n", paste0(sample(letters, 65, replace = TRUE), collapse = "")), con = file2)

diffr(file1, file2, before = "f1", after = "f2")

之后，我们可以可视化 html 文件。