函数读取最后一个xml文件而不是完整列表

Question

有人可以帮助我吗？

函数仅从列表中的最后一个文件返回值，而不是从文件夹中读取所有文件。

function1<-function(directory){
  setwd("D:/folder")
  filelist<-list.files(pattern = "*.xml")
  for (i in 1:length(filelist)){
    doc <- xmlTreeParse(filelist[i], useInternal = TRUE)
    rootNode<-xmlRoot(doc)
    c4<-xpathSApply(rootNode,"//Table//node", xmlValue)
    return(node)
  }
}

提前感谢您的回复。

Answer 1

找到解决方案，仅供参考：

wordwrap($r['message'], 20, "<br />\n");