R Windows 操作系统 choose.dir() 文件选择器不会在工作目录中打开

Question

choose.dir函数引用页有一个例子:

choose.dir(getwd(), "Choose a suitable folder")

应该在工作目录中启动文件夹选择窗口。但是，我只在“我的电脑”中打开了文件夹选择窗口。此功能未按预期工作的原因有哪些？

Answer 1

你是对的，你不应该使用 choose.dir()，因为它是特定于操作系统的。我确实可以重现您报告的问题 - 我的猜测是它不会让您从属于“根”用户的目录开始(无论这在 Windows 中意味着什么)，因为它似乎适用于其他目录，不在“根目录”下:

 getwd()
 # [1] "C:/Users/Root/Documents"
 choose.dir(getwd(), "Choose a suitable folder") # leads to 'Computer'

 setwd("C:/datathon")
 choose.dir(getwd(), "Choose a suitable folder") # select subfolder 'scripts', works OK
 # [1] "C:\\datathon\\scripts"

有两种独立于操作系统的解决方案；第一个，因为它一直是pointed out之前，是使用 tcltk 包中的以下功能:

 library(tcltk)
 setwd('~')
 getwd()
 # [1] "C:/Users/Root/Documents"
 dir <- tclvalue(tkchooseDirectory())  # opens a dialog window in 'My Documents'

第二种是使用rChoiceDialogs包(需要rJava):

 library(rJava)
 library(rChoiceDialogs)
 getwd()
 # [1] "C:/Users/Root/Documents"
 jchoose.dir()  # opens the dialog window in "C:\\Users\\Root\\Documents"