用户独立数据导入

Question

假设X和Y正在处理一个需要文件data.csv的project。它们在名为main.R的云服务中有一些公共文件。现在假设在main.R中，X和Y分别通过

# uncomment first line if you are X, otherwise uncomment second line
# data <- read.csv("C:/User/X/Documents/cloud/project/data.csv")
# data <- read.csv("C:/User/Y/Desktop/cloud/project/data.csv")

我希望有一个通用的命令，并引用它们共有的文件路径部分，而不是取消其中一行的注释，这取决于运行脚本的人是谁。

data <- read.csv(".../cloud/project/data.csv")

你知道怎么做到这一点吗？

Answer 1

试试这个：

#check if directory exists
dataDir <-
  if(dir.exists(paste0("C:/Users/",Sys.info()["effective_user"], "/Documents/cloud/project/"))){
    paste0("C:/Users/", Sys.info()["effective_user"],"/Documents/cloud/project/")
  } else if(dir.exists(paste0("C:/Users/", Sys.info()["effective_user"],"/Desktop/cloud/project/"))) {
    paste0("C:/Users/", Sys.info()["effective_user"],"/Desktop/cloud/project/")
  }


#if exists then read in
if(!is.null(dataDir)){ read.csv(paste0(dataDir,"data.csv")) }