tests/testthat/test-get_multi_tissue_eqtls.R

In gtexr: Query the GTEx Portal API

test_that("`get_multi_tissue_eqtls()` returns tibble with expected colnames",
          {
            skip_if_offline()
            result <- suppressWarnings(get_multi_tissue_eqtls(gencodeIds = "ENSG00000203782.5", itemsPerPage = 1))

            expect_s3_class(result, "tbl_df")

            expect_identical(names(result),
                             c("gencodeId", "datasetId", "metaP", "variantId", "tissues"))
          })