R 文件引用在 readxl::read_excel 的上下文中不起作用 function

Question

我想做的是 go 向上三个文件夹到“New Model Setup”文件夹，在该文件夹中我试图 go 向下进入“Data Inputs”文件夹并访问我的 excel 文件。

感兴趣的文件位于文件夹“C:/Users/Model Dev/New Model Setup/Data Inputs”中，我已将工作目录设置为...

getwd()

[1] "C:/Users/Model Dev/New Model Setup/Fiscal_Year/Quarter/Run"

我可以使用 list.files() 的两种不同方法查看此文件位置

list.files('..\\..\\..\\Data Inputs\\')

[1] “存档”
[2] 《数据输入主文件.xlsx》

list.files('../../../Data Inputs/')

[1] “存档”
[2] 《数据输入主文件.xlsx》

但是，当我在 read_excel function 中使用相同的结构时，我得到错误path不存在。

crop_yield <- readxl::read_excel('..\\..\\..\\Data Inputs\\Data Inputs Master File.xlsx',
                                  sheet = "CropYields")

错误： path不存在：'..\..\..\Data Inputs\Data Inputs Master File.xlsx'

crop_yield <- readxl::read_excel('../../../Data Inputs/Data Inputs Master File.xlsx',
                                 sheet = "CropYields")

错误： path不存在：'../../../Data Inputs/Data Inputs Master File.xlsx'

Answer 1

这是我的解决方法，但这不是我想要的 go 路线，我更愿意将所有这些都放在 function 中。

mainDir <- getwd()
setwd('../../../Data Inputs')
crop_yield <- readxl::read_excel('Data Inputs Master File.xlsx',sheet = "CropYields")
setwd(mainDir)