tests/testthat/test-examples.R

In Selbosh/doseminer: Extract Drug Dosages from Free-Text Prescriptions

context('Text mining miscellaneous highlighted examples')

example1 <- 'Diclofenac sodium 50mg gastro-resistant tablets'
example2 <- 'Bendroflumethiazide 2.5mg tablets'
example3 <- 'Co-amoxiclav 250mg/125mg tablets'
example4 <- 'Zyban 150mg modified-release tablets (GlaxoSmithKline UK Ltd)'

test_that('Do not parse unit abbreviations in middle of words', {
    out1 <- extract_from_prescription(example1)
    out2 <- extract_from_prescription(example2)
    expect_equal(out1$unit, 'milligram') # not 'iu'
    expect_equal(out2$unit, 'milligram') # not 'drop'
})

test_that('Handle multiple doses separated by slashes', {
    out3 <- extract_from_prescription(example3)
    expect_equal(out3$dose, '250-125')
})

test_that('Do not parse frequency abbreviations in middle of words', {
    out4 <- extract_from_prescription(example4)
    expect_equal(out4$freq, NA_character_) # not '3' (= t.d.)
})