tests/testthat/test_sharedTraitStudiesQuery.R

In otargen: Access Open Target

test_that("test sharedTraitStudiesQuery works", {
  skip_on_cran()
  
  result <- sharedTraitStudiesQuery(
    diseaseIds = c("EFO_0004587"),
    size = 2,
    index = 0
  )
  
  expect_true(is.null(result) || tibble::is_tibble(result))
  if (!is.null(result) && nrow(result) > 0) {
    expect_true(all(c(
      "id", "traitFromSource", "projectId",
      "publicationFirstAuthor", "publicationDate",
      "publicationJournal", "nSamples", "cohorts",
      "ldPopulationStructure", "pubmedId"
    ) %in% colnames(result)))
  }
})