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)

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

Answer 2

您可以使用choose.files,它允许自定义标题和默认文件名(default),文件类型过滤(filters)和多文件选择(multi):

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

检查帮助？choose.files;)