# test_that("writeOMLFlowXML", {
# with_test_cache({
# flow = getOMLFlow(5270)
# xml.file = tempfile()
# flow.xml = writeOMLFlowXML(flow, xml.file)
# expect_true(file.exists(xml.file))
#
# # compare with local xml
# doc = xmlParse(xml.file)
# prev = as.list(getOMLConfig())
# doc2 = xmlParse(normalizePath(paste0(prev$cachedir, "/flows/5270/flow.xml")))
# expect_equal(doc, doc2)
# })
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.