library("rlena")
context("read")
test_that("ITS file can be loaded", {
f <- "../test.its"
xml_doc <- read_its_file(f)
doc_name <- xml2::xml_name(xml_doc)
expect_equal(doc_name, "ITS")
})
test_that("ITS xml tree can be loaded", {
f <- "../test.its"
xml_doc <- read_its_file(xml2::read_xml(f))
doc_name <- xml2::xml_name(xml_doc)
expect_equal(doc_name, "ITS")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.