Nothing
context("result-parsers")
test_that("file parsers work",{
rec <- entrez_fetch(db="pubmed", id=20674752, rettype="xml")
parsed_rec <- parse_pubmed_xml(rec)
expect_that(parsed_rec, is_a("pubmed_record"))
expect_that(names(parsed_rec), is_a("character"))
expect_that(parsed_rec$pmid, is_identical_to("20674752"))
})
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.