Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("tabulizer")
  > 
  > stop_logging()
  > test_check("tabulizer")
  ── 1. Error: (unknown) (@test_extract_tables.R#5)  ─────────────────────────────
  no field, method or inner class called 'handled' 
  1: test_that("It basically works", {
         tab1 <- extract_tables(sf)
         expect_true(is.list(tab1))
         expect_true(is.matrix(tab1[[1]]))
     }) at testthat/test_extract_tables.R:5
  2: test_code(desc, code, env = parent.frame())
  3: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: isTRUE(e$handled)
  11: e$handled
  12: `$.Throwable`(e, "handled")
  13: ._jobjRef_dollar(x[["jobj"]], name)
  14: stop(sprintf("no field, method or inner class called '%s' ", name))
  
  ── 2. Error: (unknown) (@test_extract_text.R#5)  ───────────────────────────────
  no field, method or inner class called 'handled' 
  1: test_that("Text can be extracted from the whole document", {
         txt <- extract_text(sf, encoding = "UTF-8")
         cite <- paste(format(citation(), style = "citation"), collapse = "")
         striptxt <- gsub("[[:space:]+]", "", txt)
         stripcite <- gsub("[[:space:]+]", "", cite)
         expect_identical(nchar(striptxt), 2L * nchar(stripcite))
     }) at testthat/test_extract_text.R:5
  2: test_code(desc, code, env = parent.frame())
  3: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: isTRUE(e$handled)
  11: e$handled
  12: `$.Throwable`(e, "handled")
  13: ._jobjRef_dollar(x[["jobj"]], name)
  14: stop(sprintf("no field, method or inner class called '%s' ", name))
  
  ── 3. Error: (unknown) (@test_non-latin.R#3)  ──────────────────────────────────
  no field, method or inner class called 'handled' 
  1: test_that("Read Spanish language PDF", {
         f1 <- "https://github.com/tabulapdf/tabula-java/raw/98957221950af4b90620b51a29e0bbe502eea9ad/src/test/resources/technology/tabula/argentina_diputados_voting_record.pdf"
         expect_true(is.matrix(extract_tables(f1, pages = 1, area = list(c(269.875, 12.75, 
             790.5, 561)))[[1]]))
         t1a <- extract_tables(f1, pages = 1, area = list(c(269.875, 12.75, 790.5, 561)), 
             output = "data.frame", encoding = "latin1")
         t1b <- extract_tables(f1, pages = 1, area = list(c(269.875, 12.75, 790.5, 561)), 
             output = "data.frame", encoding = "UTF-8")
     }) at testthat/test_non-latin.R:3
  2: test_code(desc, code, env = parent.frame())
  3: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: isTRUE(e$handled)
  11: e$handled
  12: `$.Throwable`(e, "handled")
  13: ._jobjRef_dollar(x[["jobj"]], name)
  14: stop(sprintf("no field, method or inner class called '%s' ", name))
  
  ── 4. Error: (unknown) (@test_split_merge.R#5)  ────────────────────────────────
  no field, method or inner class called 'handled' 
  1: test_that("Splitting works", {
         s <- split_pdf(sf)
         npages1 <- get_n_pages(s[1])
         npages2 <- get_n_pages(s[1])
         npages3 <- get_n_pages(s[1])
         expect_true(is.character(s))
         expect_identical(length(s), 3L)
         expect_identical(npages1, 1L)
         expect_identical(npages2, 1L)
         expect_identical(npages3, 1L)
         expect_true(all(file.exists(s)))
         unlink(s)
     }) at testthat/test_split_merge.R:5
  2: test_code(desc, code, env = parent.frame())
  3: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: isTRUE(e$handled)
  11: e$handled
  12: `$.Throwable`(e, "handled")
  13: ._jobjRef_dollar(x[["jobj"]], name)
  14: stop(sprintf("no field, method or inner class called '%s' ", name))
  
  ── 5. Error: (unknown) (@test_utils.R#13)  ─────────────────────────────────────
  no field, method or inner class called 'handled' 
  1: test_that("Page length", {
         np <- get_n_pages(file = pdffile)
         expect_true(np == 3)
     }) at testthat/test_utils.R:13
  2: test_code(desc, code, env = parent.frame())
  3: tryCatch(withCallingHandlers({
         eval(code, test_env)
         if (!handled && !is.null(test)) {
             skip_empty()
         }
     }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
         message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) {
     })
  4: tryCatchList(expr, classes, parentenv, handlers)
  5: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], 
         parentenv, handlers[[nh]])
  6: doTryCatch(return(expr), name, parentenv, handler)
  7: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: isTRUE(e$handled)
  11: e$handled
  12: `$.Throwable`(e, "handled")
  13: ._jobjRef_dollar(x[["jobj"]], name)
  14: stop(sprintf("no field, method or inner class called '%s' ", name))
  
  Error in ._jobjRef_dollar(x[["jobj"]], name) : 
    no field, method or inner class called 'handled' 
  Calls: test_check ... <Anonymous> -> isTRUE -> $ -> $.Throwable -> ._jobjRef_dollar
  Execution halted