从命令行与RStudio运行时Diff文件丢失HTML格式

Question

我有两个文件，并使用R的Diffobj在它们之间创建一个HTML差异文件。

当我在RStudio中运行RScript时，一切都很好，我得到了一个不同的HTML文件，如下所示：

如何从命令行运行R脚本并获得良好的HTML格式？

Hello there I am a file
I have three lines
And no fourth line

Hello there I am a file
I have three lines but I am a little longer than usual
And no fourth line

library("diffobj")

file_name_diff <- "diff.html"

file_name_original <- # Path to original file
file_name_changed <- # Path to changed file

# Compare files
diff_content <- diffFile(current = file_name_original, 
                         target = file_name_changed, 
                         mode = "sidebyside",
                         format = "html")

writeLines(as.character(diff_content), file_name_diff)

Answer 1

默认情况下，Difffile()的行为不同，这取决于R是否处于交互模式，因此需要使用参数interactive=true来获得与控制台相同的结果。

使用文档中的函数示例：

library("diffobj")

file_name_diff <- "C:\\Path\\to\\file\\diff.html"

url.base <- "https://raw.githubusercontent.com/wch/r-source"
f1 <- file.path(url.base, "29f013d1570e1df5dc047fb7ee304ff57c99ea68/README")
f2 <- file.path(url.base, "daf0b5f6c728bd3dbcd0a3c976a7be9beee731d9/README")

res <- diffFile(f1,
                f2,
                mode = "sidebyside",
                format = "html",
                interactive = TRUE)

writeLines(as.character(res), file_name_diff)