tests/testthat/test-extract_publications.R

test_that("Publications extracted correctly", {
    pmid <- clinicaltrials_gov_download("NCT02586649", latest=TRUE) %>%
        extract_publications(types="RESULT")
    expect_equal(
        pmid$pmid[1],
        "10569435"
    )
})

Try the cthist package in your browser

Any scripts or data that you put into this service are public.

cthist documentation built on Sept. 11, 2024, 5:31 p.m.