用于比较数据Frama中的行的R无效文件描述

Question

下面的代码应该从我的数据表中读取“ pri”行，并且当它超过阈值（默认值150）时，我们应该使用目录中该文件的“ cor”功能。我不断收到“无效的文件描述”，也不确定我是否正确使用了该功能。

corr<- function(directory,threshold = 150){

com<-complete("C:\\Users\\Daniel\\Downloads\\quiz1_data\\specdata\\")
#print(com)
filesR<-list.files("C:\\Users\\Daniel\\Downloads\\quiz1_data\\specdata\\", 
full.names = TRUE)



for (row in 1:nrow(com)){
  ID<-com[row,"ID"]
  compareAmount<-com[row,"pri"]
  if(compareAmount>threshold){
    temp<- read.csv(filesR[ID],header = TRUE,sep = "\t")
    #print(cor(temp))
    print("hello")

  }


}