r - 如何获取与图形设备关联的文件？

Question

在将绘图打印到文件时，我想找到要打印到的文件的位置。

pdf("test.pdf")
plot(1:5)
# Somehow retrieve "test.pdf"
dev.off()

在这个例子中，我在调用 pdf 时指定了文件名。所以答案是显而易见的。我的用例是自动生成文件位置时，例如在 knitr 文档中。

对于文件连接，您可以使用 summary(conn)$description 获取关联文件.我希望能够从 summary(dev.cur()) 得到一些有用的东西或 str(dev.cur()) ，但没有运气。

我如何从 dev.cur()到相关文件？或者，如何检索正在写入绘图的文件的位置？

Answer 1

我不得不反驳我自己和我在评论中所说的话。 .Devices对象提供所需的信息:

pdf()
.Devices
#[[1]]
#[1] "null device"
#[[2]]
#[1] "pdf"
#attr(,"filepath")
#[1] "Rplots.pdf"
#[[3]]
#[1] ""

从输出中可以看出，文件名存储为属性。

正如@RichieCotton 所注意到的，上述对象的“单一”版本 .Device , 仅提供有关当前设备(而不是整个列表)的信息，因此提取文件路径非常简单:

attr(.Device, "filepath")
#[1] "Rplots.pdf"