tests/testthat/test_write_methods.R

In tabulapdf: Extract Tables from PDF Documents

context("Table writing methods")

pdffile <- system.file("examples", "mtcars.pdf", package = "tabulapdf")
tabs <- extract_tables(pdffile, output = "asis")

test_that("Java reference return", {
  expect_true(inherits(tabs, "jobjRef"))
})

test_that("Make list of matrices", {
  t1 <- tabulapdf:::list_matrices(tabs)
  expect_true(is.list(t1))
  expect_true(is.matrix(t1[[1]]))
  expect_true(ncol(t1[[1]]) == 12)
  expect_true(nrow(t1[[1]]) == 6)
})

test_that("Make list of character vectors", {
  t2 <- tabulapdf:::list_characters(tabs)
  expect_true(is.list(t2))
  expect_true(is.character(t2[[1]]))
})

test_that("Make list of tibbles", {
  t3 <- tabulapdf:::list_tibbles(tabs)
  expect_true(is.list(t3))
  expect_true(is.data.frame(t3[[1]]))
})

test_that("Write CSV Files", {
  t4 <- tabulapdf:::write_csvs(tabs, file = pdffile, outdir = tempdir())
  expect_true(is.character(t4))
  expect_identical(length(dir(t4, pattern = "csv$")), 3L)
})

test_that("Write TSV Files", {
  t5 <- tabulapdf:::write_tsvs(tabs, file = pdffile, outdir = tempdir())
  expect_true(is.character(t5))
  expect_identical(length(dir(t5, pattern = "tsv$")), 3L)
})

test_that("Write JSON Files", {
  t6 <- tabulapdf:::write_jsons(tabs, file = pdffile, outdir = tempdir())
  expect_true(is.character(t6))
  expect_identical(length(dir(t6, pattern = "json$")), 3L)
})