# \dontshow{
.old_wd <- setwd(tempdir())
# }
source_file <- system.file("extdata",
"bionet_metadata.Rmd",
package = "delma")
df <- read_md(source_file)
write_eml(df, "example.xml")
# \dontshow{
setwd(.old_wd)
# }
Run the code above in your browser using DataLab