tests/testthat/test-getJson.R

In steinbaugh/brio: Pipette Biological Data In and Out of R

test_that("UCSC Genome Browser API", {
    url <- pasteUrl(
        "api.genome.ucsc.edu",
        "list",
        "ucscGenomes",
        protocol = "https"
    )
    skip_if_not(isAnExistingUrl(url))
    json <- getJson(url)
    expect_type(json, "list")
})

## The Ensembl REST API server is prone to connection issues, so disabling this
## at the moment to avoid build checks hanging.

## > test_that("Ensembl REST API", {
## >     url <- pasteUrl(
## >         "rest.ensembl.org",
## >         "info",
## >         "assembly",
## >         paste0(
## >             "Homo sapiens",
## >             "?", "content-type=application/json"
## >         ),
## >         protocol = "https"
## >     )
## >     skip_if_not(isAnExistingUrl(url))
## >     json <- getJson(url)
## >     expect_type(json, "list")
## > })