在r中概括XML解析

Question

我在r脚本中有许多行，如下所示：

#Type
resultlist=xmlSApply(productlist,function (x) xmlValue(x[["Type"]]))
types=data.frame(resultlist)
names(types)="Type"
#Ratings
resultlist=xmlSApply(productlist,function (x) xmlValue(x[["Ratings"]][["HighestScore"]]))
score=data.frame(as.numeric(resultlist))
names(score)="Score"

如何将其概括为形式为namedframe = f（[[..]] [...]]，convertToNumeric的函数？

我可以很容易地看到转换为数字bool但我不确定如何在可能存在多个级别并且级别数未知的情况下如何执行[[..]] [[..]]参数。

谷歌和stackoverflow的搜索没有任何指导意义。