tests/testthat/test-get_gwas_catalog_by_location.R

In gtexr: Query the GTEx Portal API

test_that("`get_gwas_catalog_by_location()` returns tibble with expected colnames", {
  skip_if_offline()
  result <- get_gwas_catalog_by_location(
    start = 1,
    end = 10000000,
    chromosome = "chr1",
    itemsPerPage = 1
  ) |>
    suppressWarnings()

  expect_s3_class(result, "tbl_df")

  expect_identical(
    names(result),
    c(
      "chromosome",
      "start",
      "end",
      "phenotype",
      "pValue",
      "beta",
      "pubmedId",
      "snpId",
      "riskAllele",
      "genomeBuild"
    )
  )
})