# NOT RUN {
f <- system.file("extdata/example.xml", package = "emld")
emld <- as_emld(f)
xml <- as_xml(emld)
## can also write directly to a file:
xml_file <- tempfile()
as_xml(emld, xml_file)
## if you don't want the `xsi:schemaLocation` attribute set
as_xml(emld, schemaLocation = FALSE)
## or if you want to set your own value
as_xml(emld, schemaLocation = "https://eml.ecoinformatics.org/eml-2.2.0
http://example.com/eml-2.2.0/eml.xsd")
# }
Run the code above in your browser using DataLab