# NOT RUN {
data <- '<variable type="character">My text is awesome</variable>'
item <- XML::xmlRoot(XML::xmlParse(data,asText=TRUE))
value <- RTest::xmlReadData_text(item)
stopifnot(value=="My text is awesome")
# }
Run the code above in your browser using DataLab