tests/testthat/test-get_full_get_collapsed_gene_model_exon.R

In gtexr: Query the GTEx Portal API

test_that(
  "`get_full_get_collapsed_gene_model_exon()` returns tibble with expected colnames",
  {
    skip_if_offline()
    result <- get_full_get_collapsed_gene_model_exon(gencodeId = "ENSG00000203782.5")

    expect_s3_class(result, "tbl_df")

    expect_identical(
      names(result),
      c(
        "featureType",
        "end",
        "genomeBuild",
        "chromosome",
        "exonNumber",
        "geneSymbolUpper",
        "exonId",
        "datasetId",
        "start",
        "dataSource",
        "gencodeId",
        "geneSymbol",
        "gencodeVersion",
        "strand"
      )
    )
  }
)