r - 如何将指定行数从 R 的历史记录保存到文件中？

Question

这有点令人沮丧，但我相信有一个简单的答案。

history(max.show=N) 将在终端上显示 N 行历史记录。 savehistory(file) 将根据某些环境变量将多行历史记录保存到文件中。我想做的是

savehistory(file, max.show=N) 

在一行中执行此操作而不是必须复制或浏览历史文件来查找我想要的行会使事情变得容易得多。

是否有快速的功能/方法可以将指定行数保存到指定文件？

Answer 1

我认为你最好的选择是滥用历史功能:

history2file <- function (fname, max.show = 25, reverse = FALSE, pattern, ...) 
{
## Special version of history() which dumps its result to 'fname'
    file1 <- tempfile("Rrawhist")
    savehistory(file1)
    rawhist <- readLines(file1)
    unlink(file1)
    if (!missing(pattern)) 
        rawhist <- unique(grep(pattern, rawhist, value = TRUE, 
            ...))
    nlines <- length(rawhist)
    if (nlines) {
        inds <- max(1, nlines - max.show):nlines
        if (reverse) 
            inds <- rev(inds)
    }
    else inds <- integer()
    writeLines(rawhist[inds], fname)
}
history2file("/tmp/bla")

不过，我会鼓励您直接开始使用脚本文件，而不是在命令行上执行操作，然后再尝试将脚本拼凑在一起。