Nothing
context("Parse tables")
doc <-xml2::read_xml(system.file("extdata/PMC2231364.xml", package = "tidypmc"))
doc2 <- xml2::read_xml("<p>This is some text</p>")
t1 <- pmc_table(doc)
test_that("pmc_table works", {
expect_is(t1, "list")
expect_error(pmc_table("a vector") )
expect_equal(pmc_text(doc2), NULL)
})
test_that("collapse rows works", {
expect_is(collapse_rows(t1), "tbl_df")
expect_is(collapse_rows(t1[[1]]), "tbl_df")
expect_error(collapse_rows("a vector") )
})
test_that("repeat subheading works", {
expect_is(repeat_sub(t1[[1]]), "tbl_df")
expect_error(repeat_sub("a vector") )
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.