# NOT RUN {
xml <- system.file("extdata", "order-schema.xml", package = "xml2")
cat(xml2json(xml))
#
js <- c(
'if(key === "@_type"){',
' return undefined;',
'} else if(key === "@_name"){',
' return value.toUpperCase();',
'}',
'return value;'
)
cat(xml2json(xml, linebreaks = TRUE, replacer = js))
# }
Run the code above in your browser using DataLab