tests/testthat/test-get_clustered_median_junction_expression.R

In gtexr: Query the GTEx Portal API

test_that(
  "`get_clustered_median_junction_expression()` returns tibble with expected colnames",
  {
    skip_if_offline()
    result <- get_clustered_median_junction_expression(c("ENSG00000203782.5", "ENSG00000132693.12"),
                                                       tissueSiteDetailIds = "Bladder")

    expect_s3_class(result, "tbl_df")

    expect_identical(
      names(result),
      c(
        "median",
        "junctionId",
        "tissueSiteDetailId",
        "ontologyId",
        "datasetId",
        "gencodeId",
        "geneSymbol",
        "unit"
      )
    )
  }
)