Как сделать функцию для циклического перемещения по рабочим каталогам

Question

Я использую флэш-накопитель для хранения всех своих файлов R csv, но записываю их со своего настольного компьютера, ноутбука и рабочего компьютера.Есть ли способ создать функцию, которая будет игнорировать setwd, если этот диск отсутствует?

Working_D_Noah.H1N1 <- function(){

 #my work space miller lab computer
 if(setwd("E:/Miller Lab/Noah.H1N1/CSV Files")) return ("E:/Miller Lab/Noah.H1N1/CSV Files")

 #my desktop
 else(setwd("I:/Miller Lab/Noah.H1N1/CSV Files")) return("I:/Miller Lab/Noah.H1N1/CSV Files")

          #my lap top
          (setwd("F:/Miller Lab/Noah.H1N1/CSV Files")) return("F:/Miller Lab/Noah.H1N1/CSV Files")
                }
Working_D_Noah.H1N1

В качестве примера я ожидаю, что если я нахожусь на своем рабочем столе и запускаю этот код, то Rвыберет один рабочий каталог, который доступен.