在 R 中打印文本文件的前几行

Question

我有一个没有明显表格或其他结构的文本文件，例如内容

some text on line 1
some more text on line 2
even more text on the third line
etc

将文件中的前几行（比如 2 行）文本打印到控制台的最优雅和类似 R 的方式是什么？

选项 1：readLines

readLines('file.txt', n=2)
# [1] "some text on line 1"      "some more text on line 2"

n=2 选项很有用，但我想要原始文件内容，而不是单独的行作为向量的元素。

选项 2：file.show

file.show('file.txt')
# some text on line 1
# some more text on line 2
# even more text on the third line
# etc

这种输出格式是我希望看到的，但是缺少限制行数的选项，例如 readLines 中的 n=2。

选项 3：system('head')

system('head -n2 file.txt')
# some text on line 1
# some more text on line 2

这正是我想要得到的输出，但我不确定这是否适用于所有平台，并且为这样一个简单的任务调用外部命令有点尴尬。

可以将readLines 解决方案与paste 和 cat 结合使用来格式化输出，但这似乎太过分了。像file.head 这样的简单命令会很好，或者file.show 中的n=2 参数会很好，但都不存在。在 R 中实现这一目标的最优雅、最紧凑的方法是什么？

为了澄清这里的目标：这是写一个 R 教程，其中的叙述类似于“......我们现在已经将我们的数据写入一个新的文本文件，所以让我们看看它是否有效在前几行......”。此时，使用基本 (update: 或 tidyverse) 函数的简单而紧凑的 R 表达式将非常有用。

Answer 1

将writeLines 与readLines 一起使用：

writeLines(readLines("file.txt", 2))

给予：

some text on line 1
some more text on line 2

这也可以写成以下管道。它给出了相同的输出：

library(magrittr)

"file.txt" %>% readLines(2) %>% writeLines