tests/testthat/test-get_image.R

In gtexr: Query the GTEx Portal API

test_that("`get_image()` returns tibble with expected colnames", {
  skip_if_offline()
  # no `pathologyNotesCategories` column
  result <- get_image(tissueSampleIds = "GTEX-1117F-0226",
                      page = 0,
                      itemsPerPage = 1) |>
    suppressWarnings()

  expect_s3_class(result, "tbl_df")

  expect_identical(
    names(result),
    c(
      "ageBracket",
      "hardyScale",
      "hide",
      "histologyImageId",
      "pathologyNotes",
      "sampleId",
      "sex",
      "subjectId",
      "tissueSampleId",
      "tissueSiteDetail"
    )
  )

  # `pathologyNotesCategories` column present
  result <- get_image(tissueSampleIds = "GTEX-1117F-0526",
                      page = 0,
                      itemsPerPage = 1) |>
    suppressWarnings()

  expect_s3_class(result, "tbl_df")

  expect_identical(
    names(result),
    c(
      "ageBracket",
      "hardyScale",
      "hide",
      "histologyImageId",
      "pathologyNotes",
      "pathologyNotesCategories",
      "sampleId",
      "sex",
      "subjectId",
      "tissueSampleId",
      "tissueSiteDetail"
    )
  )

  expect_identical(names(result$pathologyNotesCategories),
                   c("monckeberg", "sclerotic"))
})