r - file.choose() 自定义对话窗口

Question

有没有办法让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")))例如，但这似乎没有任何作用。

Answer 1

替代:

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)

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