tests/testthat/test-get_functional_annotation.R

In gtexr: Query the GTEx Portal API

test_that("`get_functional_annotation()` returns tibble with expected colnames",
          {
            skip_if_offline()
            result <- get_functional_annotation(chromosome = "chr1",
                                                start = 192168000,
                                                end = 192169000)

            expect_s3_class(result, "tbl_df")

            expect_identical(
              names(result),
              c(
                "variantId",
                "enhancer",
                "promoter",
                "openChromatinRegion",
                "promoterFlankingRegion",
                "ctcfBindingSite",
                "tfBindingSite",
                "3PrimeUtrVariant",
                "5PrimeUtrVariant",
                "frameshiftVariant",
                "intronVariant",
                "missenseVariant",
                "nonCodingTranscriptExonVariant",
                "spliceAcceptorVariant",
                "spliceDonorVariant",
                "spliceRegionVariant",
                "stopGained",
                "synonymousVariant",
                "chromosome",
                "pos",
                "ref",
                "alt",
                "datasetId"
              )
            )
          })