采购S4类文件

Question

我在计算机的“classes”目录中创建了多个S4类（即引用类）。我正在尝试将它们全部输入到我的程序中。这是我的工作：

workingDirectory<-getwd()
myClasses<-dir(paste(workingDirectory,"/classes",sep=""))
   if (length(myClasses)!=0){
     sapply(1:length(myClasses),function(x) 
     source(paste(workingDirectory,"/classes/",myClasses[x],sep="")))
   }

我一直收到以下错误： getClass中的错误（what，where = where）：“event”不是已定义的类

这只发生在我的班级。我为我创建的大量函数文件做了同样的事情，我可以将它们全部发送到我的程序中。

有什么建议在这里发生了什么？！？！？