15

有没有办法让运行后弹出的对话窗口file.choose()显示自定义标题，类似于X <- menu(files, graphics=TRUE, title="Choose file X")？

现在我的代码需要加载几个文件。

X <- read.csv(file.choose())
Y <- read.csv(file.choose())
Z <- read.csv(file.choose())

目前我只是使用我的（人类）记忆来知道为第一个窗口、第二个窗口和第三个窗口选择哪些文件，但我希望窗口显示哪个对象X Y或Z当前窗口的文件将被导入到。我可以将窗口移到一边以查看控制台正在执行哪一行代码，但这似乎很不雅。

例如，我已经尝试过X <- read.csv(file.choose(new=c("Choose X")))，但这似乎没有任何作用。

4

2 回答 2

11

替代：

library(tcltk)
X <- read.csv(tk_choose.files(caption = "Choose X"))

看到该功能还可以用于一次调用选择多个文件。为此，请在选择多个文件时按住 CTRL：

XYZ.list <- lapply(tk_choose.files(caption = "Choose X, Y, and Z"), read.csv)

但是没有保留选择顺序，因此如果对您更有效，您可能希望保留三个单独的调用。

于 2013-04-26T01:15:56.417 回答
8

在 Windows 上，您可以使用choose.files，它允许自定义标题以及默认文件名 ( default)、文件类型过滤 ( filters) 和多文件选择 ( multi)：

choose.files(default = "", caption = "Select files",
             multi = TRUE, filters = Filters,
             index = nrow(Filters))

检查帮助?choose.files;)

于 2013-04-26T08:35:28.127 回答