如何使功能在工作目录之间循环

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将选择一个可用的工作目录。