inst/tests/test-grab_text.R

context("grab_text.R")

test_that( "params", {
  pdffile <- system.file("extdata", "DyerNason2004.pdf", package="footprint")
  
  expect_that( nchar(pdffile)>1,  is_true() )
  ret <- grab_text(pdffile)
  expect_that( length(ret) > 0 , is_true() )
})
dyerlab/footprints documentation built on May 15, 2019, 7:21 p.m.