tests/testthat/test-match-MRNs.R

context("matching MRNs")

data(x_EMR)
data(y_EMR)
 
matched <- match_MRNs(x_EMR, y_EMR)

test_that("right number of names are matched", {
  expect_equal(nrow(matched), 5)
})
NateByers/IUHhelpers documentation built on Feb. 25, 2020, 8:43 p.m.