tests/testthat/test-get_tissue_site_detail.R

In gtexr: Query the GTEx Portal API

test_that("`get_tissue_site_detail()` returns tibble with expected colnames", {
  skip_if_offline()
  result <- get_tissue_site_detail(itemsPerPage = 1) |>
    suppressWarnings()

  expect_s3_class(result, "tbl_df")

  expect_identical(
    names(result),
    c(
      "tissueSiteDetailId",
      "colorHex",
      "colorRgb",
      "datasetId",
      "eGeneCount",
      "expressedGeneCount",
      "hasEGenes",
      "hasSGenes",
      "mappedInHubmap",
      "eqtlSampleSummary",
      "rnaSeqSampleSummary",
      "sGeneCount",
      "samplingSite",
      "tissueSite",
      "tissueSiteDetail",
      "tissueSiteDetailAbbr",
      "ontologyId",
      "ontologyIri"
    )
  )
})