tests/testthat/test-is_mgi_identifier.R

test_that("is_mgi_identifier works as expected", {

  actual <- is_mgi_identifier(c("MGI:1", "MGI:123456", "MGI:1234567", "123456", NA_character_))
  expected <- c(TRUE, TRUE, TRUE, FALSE, FALSE)
  expect_identical(actual, expected)

})

Try the mgi.report.reader package in your browser

Any scripts or data that you put into this service are public.

mgi.report.reader documentation built on Sept. 11, 2024, 8:41 p.m.