tests/testthat/test-get_expression_pca.R

In gtexr: Query the GTEx Portal API

test_that("`get_expression_pca()` returns tibble with expected colnames",
          {
            skip_if_offline()
            result <- get_expression_pca(tissueSiteDetailIds = "Adipose_Subcutaneous", sampleId = "GTEX-1117F-0226-SM-5GZZ7")

            expect_s3_class(result, "tbl_df")

            expect_identical(
              names(result),
              c(
                "pc1",
                "pc2",
                "pc3",
                "sampleId",
                "tissueSiteDetailId",
                "ontologyId",
                "datasetId"
              )
            )
          })