与其让用户设置目录，不如将所有目录都构建到脚本中，然后检查哪个用户正在使用该脚本。

Paths = c("C://user/Fred/", "C://user/Wilma", "C://Some/other/path")
names(Paths) = c("Fred", "Wilma", "Guest")
setwd(Paths[Sys.info()[7]])

当然，Sys.info()[7]给出了当前登录的用户。

Dropbox提供了一个json文件，可用于设置目录

library(magrittr)
library(jsonlite)

DropboxInfo <- 
  if (Sys.getenv("OS") == "Windows_NT") {
    file.path(Sys.getenv("LOCALAPPDATA"), "Dropbox", "info.json")
  } else {
    "~/.dropbox/info.json"
  }

Path2Dropbox <- 
  jsonlite::fromJSON(DropboxInfo) %>%
  use_series("business") %>%  # or 'personal' if applicable
  use_series("path")

Datensatz <- read_excel(file.path(Path2Dropbox, "Datensatz.xlsx"))

我在Dropbox的多个用户中找到了一个简单的方法。
假设您使用以下路径将共享数据存储在Dropbox中：“C：/Users/thoma/Dropbox/Data/Datensatz.xlsx”，而您的R脚本位于“C：/Users/thoma/Dropbox/Code/data.R”，从该文件夹打开您的代码，RStudio会自动将Code设置为当前工作目录，然后您可以在脚本中将工作目录更改为Data。

setwd("../../../../Data/") ## set folder 'Data' as the working directory
Datensatz <- read_excel("./Datensatz.xlsx") ## use a relative path from the working directory