R: задержка установки при использовании file.choose

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()