对于循环，不处理R中的整个XML脚本

Question

我正在编写一个例程来解析XML文件，该文件是系统日志文件以捕获登录和登录消息。正如您在我的代码中看到的那样，有几个检查点我验证XML文件是否已被完全读取，但是，当我打印数据框时，仅捕获第一个事件。

LG.df <- read_xml("Syslog.xml")


xml_ns(LG.df)
NS<- xml_children(xml_children(LG.df))


EV<- ""
DT<- ""
AN<- ""
AD<- ""
WSN<- ""
SA<- ""

LogEvents.df<- data.frame(EV, DT, AN, AD, WSN, SA)

print(LG.df)


for (i in sequence(length(NS))) {


DT<- NS[1]
DT<- gsub("<DateTime>","",as.character(DT))
DT<- gsub("</DateTime>","",as.character(DT))
#print(DT)
Pr<- NS[2]
Pr<- gsub("<Priority>","",as.character(Pr))
Pr<- gsub("</Priority>","",as.character(Pr))
#print(Pr)
SH<- NS[3]
SH<- gsub("<Source_Host>","",as.character(SH))
SH<- gsub("</Source_Host>","",as.character(SH))
#print(SH)
MT<- NS[4]
MT<- gsub("<MessageText>","",as.character(MT))
MT<- gsub("</MessageText>","",as.character(MT))
#print(MT)


EV<- str_match(MT, "\\d{4}(?=\\tMicrosoft-Windows-Security-Auditing)")

#print(EV)

AN<- str_match(MT, "(?<=Account Name:\\t\\t).*?(?=\\n)")
SID<- str_match(MT, "(?<=Security ID:\\t\\t).*?(?=\\n)")
AD<- str_match(MT, "(?<=Account Domain:\\t\\t).*?(?=\\n)")
WSN<- str_match(MT, "(?<=Workstation Name:\\t\\t).*?(?=\\n)")
SA<- str_match(MT, "(?<=Source Network Address:\\t\\t).*?(?=\\n)")




if(EV == 4624){(LogEvents.df$EV <-(EV))
  (LogEvents.df$DT<- (DT))
  (LogEvents.df$AN<- (AN))
  (LogEvents.df$AD<- (AD))
  (LogEvents.df$WSN<- (WSN))
  (LogEvents.df$SA<- (SA))


  } else if(EV == 4634){(LogEvents.df$EV <-( EV))}
  (LogEvents.df$DT<- (DT))
  (LogEvents.df$AN<- (AN))
  (LogEvents.df$AD<- (AD))
  (LogEvents.df$WSN<- (WSN))
  (LogEvents.df$SA<- (SA))



}

欢迎任何想法。谢谢！