R 使用if（）时的警告消息

我正在尝试对多个文件执行一个函数，我正在使用以下方法：

require(readxl);
require(MESS);
final_df <- NULL;
for(i in CHI.Files){
  PPeakD <- read_excel(paste0('/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/',i), sheet = "Ppeak");
  PPeakD <- PPeakD[c(4,5)]
  colnames(PPeakD)<-c("Time","PPeak")
  PPeakD <- PPeakD[c(which(PPeak$PPeak>0)),]

  PEEP <- read_excel(paste0("~/Dropbox/Research/Andrew/
                     LungStudyOutput - Whole case/",i), 
                     sheet = "PEEP")
  PEEP <- PEEP[c(4,5)]
  colnames(PEEP)<-c("Time","PEEP")
  PEEP <- PEEP[c(which(PEEP$PEEP>0)),]

  PPeakAdj <- CHI.Files.frame(approx(PPeak$Time, PPeak$PPeak, 
                                     xout = PEEP$Time, method = "linear", rule = 2))
  colnames(PPeakAdj)<-c("Time","PPeakAdj")

  DrivP <- CHI.Files.frame((PPeakAdj$Time),((c(PPeakAdj$PPeakAdj)) - (c(PEEP$PEEP))))
  colnames(DrivP) <- c("Time", "DrivP")
  final_df <- rbind(final_df,DrivP)
}

想知道我做错了什么吗

谢谢

编辑： Made@Jonathan Carroll的更正错误代码如下所示：

 Error: '/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/013234-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/006538-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/000478-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/025396-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/045495-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/000443-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/020462-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/
                           LungStudyOutput - Whole case/080677-1.xls/Users/andrewmclean/Dropbox/Research/Andrew/

In addition: Warning messages:
1: In if (!file.exists(path)) { :
  the condition has length > 1 and only the first element will be used
2: In if (!is_absolute_path(path)) paste0(" in current working directory ('",  :
  the condition has length > 1 and only the first element will be used

---

据推测，这应该在其内容周围有一个

粘贴
，因为它当前试图提供太多的参数

PEEP <- read_excel("~/Dropbox/Research/Andrew/
                 LungStudyOutput - Whole case/",CHI.Files[i], sep='', 
                 sheet = "PEEP")

PEEP据推测，这应该在其内容周围有一个
粘贴
，因为它当前试图提供太多的参数

PEEP <- read_excel("~/Dropbox/Research/Andrew/
                 LungStudyOutput - Whole case/",CHI.Files[i], sep='', 
                 sheet = "PEEP")

PEEP我没注意到-谢谢！！我已经更新了它，但仍然收到一条类似的消息：另外：警告消息：1:In if（！file.exists（path））{：条件的长度大于1，并且只使用第一个元素2:In if（！is_absolute_path（path））paste0（“在当前工作目录（'）”，：条件的长度>1，只使用第一个元素}我没有注意到-谢谢！！我已经更新了它，但仍然收到类似的消息：另外：警告消息：1:In if（！file.exists（path））{：条件的长度>1，只使用第一个元素2:In if（！is__绝对路径（path））paste0（“在当前工作目录（'”，：条件的长度大于1，并且只使用第一个元素}我不知道CHI.Files
中有什么内容，但从外观上看，不仅仅是一个值。在循环之前，对循环进行注释，看看是否可以使它在单个文件中工作。检查每一步的变量内容，确保它们是您所想的。是的，它没有在循环外工作。我认为问题是我的数据由于“水平化”，所以它试图将太多的数据放入…我不知道CHI.Files
中有什么，但从外观上看，不仅仅是一个值。在循环之前，注释循环，看看是否可以让它在单个文件中工作。检查每一步的变量内容，确保它们是您所想的。是的，它没有循环工作。我认为问题在于我的数据是“水平化”的，所以它试图把太多的数据放在。。。