tests/testthat/helper.R

In russHyde/homologiser: Map Genes To Their Homologues In A Different Species

###############################################################################

## helpers for test_that

# TODO: implement row.name NULL-ing
.df <- function(...) {
  data.frame(..., stringsAsFactors = FALSE)
}

.tbl <- function(...) {
  if (requireNamespace("tibble", quietly = TRUE)) {
    tibble::tibble(...)
  } else {
    warning("package `tibble` required for tests")
  }
}

###############################################################################

# Mock biomaRt objects for use in unit-testing

mock_mart <- structure(.Data = "mock-mart", class = "Mart")

mock_attribs <- .df(
  name = c(
    "ensembl_gene_id", "entrezgene", "mmusculus_homolog_ensembl_gene",
    "hsapiens_homolog_ensembl_gene"
  ),
  descriptions = c(
    "Gene ID", "External Gene ID", "Mouse homologues", "Human homologues"
  )
)

###############################################################################