我如何修复与r中的目录相关的此错误？

Question

pollutantmean<-function(directory,pollutant,id){
id<-as.numeric(id)
if(grep("specdata",directory)==1){
  directory<-"C:\\Users\\SASIDHAR\\Desktop\\coursera\\specdata\\"
}
if(id<10){
newid<-paste("00",id,sep="")
fileid<-paste(newid,".csv",sep="")
filename<-paste(directory,fileid,sep="")
data<-read.csv(filename)
}
else if(id>=10&id<=99){
newid<-paste("0",id,sep="")
fileid<-paste(newid,".csv",sep="")
filename<-paste(directory,fileid,sep="")
data<-read.csv(filename)


}
else{
fileid<-paste(id,".csv",sep="")
filename<-paste(directory,filename,sep="")
data<-read.csv(filename)
}
if(pollutant=="sulfate"){
mean(data$sulfate,na.rm=TRUE)
}
else if(pollutant=="nitrate"){
mean(data$nitrate,na.rm=TRUE)
}
}

我在r编程中编写了这个函数，我收到了这个错误 文件错误（文件，＆＃34; rt＆＃34;）：无效＆＃39;描述＆＃39;争论 另外：警告信息： 在if（id <10）{：   条件的长度> 1，只使用第一个元素 任何人都可以帮我这个plzzz我正在使用Windows 8