test-download.R
In gtexr: Query the GTEx Portal API

test_that("`download()` returns tibble with expected colnames", {
  skip_if_offline()
  result <-
    download(
      materialTypes = "RNA:Total RNA",
      tissueSiteDetailIds = "Thyroid",
      pathCategory = "clean_specimens",
      sex = "male",
      ageBrackets = "50-59"
    )

  expect_s3_class(result, "tbl_df")

  expect_identical(
    names(result),
    c(
      "materialType",
      "sampleId",
      "sampleIdUpper",
      "sex",
      "rin",
      "hasGTExImage",
      "concentration",
      "analysisRelease",
      "genotype",
      "hardyScale",
      "pathologyNotes",
      "subjectId",
      "tissueSiteDetailId",
      "hasGenotype",
      "originalMaterialType",
      "aliquotId",
      "tissueSampleId",
      "ageBracket",
      "brainTissueDonor",
      "volume",
      "hasExpressionData",
      "hasBRDImage",
      "tissueSiteDetail",
      "pathologyNotesCategories",
      "amount",
      "tissueSite"
    )
  )
})