関数は、フルリストの代わりに最後の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

ソリューションはFYI、発見された：

`リターン（ノード）`中断されたループに到達するとすぐに

setwd("D:/folder") 
xmlfiles <- list.files(pattern = "*.xml") 
sapply(seq(xmlfiles), function(i){ 
doc <- xmlTreeParse(xmlfiles[i], useInternal = TRUE) 
c4<-xmlValue(doc[["//folder//c4"]]) 
return(c4) 
})