txt = paste0("ABCXYZ',
3.54available")
doc = xmlParse(txt)
setClass("part", representation(name = "character",
type = "character",
cost = "numeric",
status= "character"))
xmlToS4(xmlRoot(doc)[["part"]])
Run the code above in your browser using DataLab