r - R：使用 file.choose 时的 setwd 延迟

Question

所以我正在做的是制作我的浏览按钮，以便当我点击它们时，将用户直接带到我希望他们保存文件或查找文件的目录。

例如

     setwd("C:\\Users\\Eric\\Desktop\\Program\\graphs") #set directory
     file.choose()

但是在前面的脚本中，我已经将我的工作目录设置为

    setwd("C:\\Users\\Eric\\Desktop\\Proram") #set directory

所以当我运行第一个示例时，它把我带到了目录 Program 而不是图形。但是当我第二次运行 file.choose() 时，它把我带到了图形目录，为什么会这样？知道如何解决这个问题吗？

Answer 1

这是解决您问题的快速而肮脏的解决方案：

 dirPath <- "C:\\Users\\Eric\\Desktop\\Program\\graphs"
 setwd(dirPath)
 # Tell R to sleep until the current directory matches the expected directory
 while(getwd() != normalizePath(dirPath)) {
   Sys.sleep(0.02)
 }
 file.choose()