tests/testthat/test_hyphen.r

In lebebr01/pdfsearch: Search Tools for PDF Files

context('remove hyphens')

# test_that('remove hyphens', {
#   path <- system.file('pdf', '1610.00147.pdf', package = 'pdfsearch')
#   
#   hyphen_removed <- keyword_search(x = path, keyword = 'measurement', path = TRUE)
#   keep_hyphen <- keyword_search(x = path, keyword = 'measurement', path = TRUE,
#                          remove_hyphen = FALSE)
#   
#   expect_false(isTRUE(all.equal(nrow(hyphen_removed), 
#                                 nrow(keep_hyphen))))
# })