tmp <- lapply(references, function(i) {
if(!inherits(i, "XMLNode"))
i <- xmlNode("reference", i)
i
})
r[["references"]] <- append.xmlNode(r[["references"]],tmp)
Run the code above in your browser using DataLab