评论太久了。 [如果人们认为这太难以回答(我倾向于认为它可能……),我会删除它。
所以问题是一个错字(见评论)。这只是编程实践的一个注释。排除赋值语句(尽可能多),所以这个:
ArticleTitle <- xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./Article[1]/ArticleTitle[1]/text()’)
DateCreated <- xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./DateCreated/Year/text()’)
Keyword1 < - xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[1]/text()’)
Keyword2 < - xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[2]/text()’)
Keyword3 < - xpathSApply(myxml,”//*/MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[3]/text()’)
</code>
而不是这个:
ArticleTitle <- xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./Article[1]/ArticleTitle[1]/text()’)
DateCreated <- xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./DateCreated/Year/text()’)
Keyword1 < - xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[1]/text()’)
Keyword2 < - xpathSApply(myxml,”///MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[2]/text()’)
Keyword3 < - xpathSApply(myxml,”//*/MedlineCitation”,padXML,xstr=’./KeywordList[1]/Keyword[3]/text()’)
</code>
使这种类型的错误真正流行。