# NOT RUN {
data <- '<variable name="myvar" value="4" type="numeric"/>'
item <- XML::xmlRoot(XML::xmlParse(data,asText=TRUE))
value <- RTest::xmlReadData_variable(item)
print("5 shall be the outcome")
print(value + 1)
# }
Run the code above in your browser using DataLab