Running ‘testthat.R’ [32s/134s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(petro.One)
  > 
  > test_check("petro.One")
  ── 1. Error: when read_multipage standard type only (@test_multipage.R#79)  ────
  'check.attributes' must be logical
  1: petro.One:::expect_equal_scale(nrow(df), 0, tolerance_pct = 0.01) at testthat/test_multipage.R:79
  2: testthat::expect_equal(object, expected, tolerance, scale)
  3: compare(act$val, exp$val, ...)
  4: compare.numeric(act$val, exp$val, ...)
  5: all.equal(x, y, tolerance = tolerance, check.attributes = check.attributes, ...)
  6: all.equal.numeric(x, y, tolerance = tolerance, check.attributes = check.attributes, 
         ...)
  7: stop(gettextf("'%s' must be logical", "check.attributes"), domain = NA)
  
  ── 2. Error: when read_multipage journal-paper only (@test_multipage.R#90)  ────
  'check.attributes' must be logical
  1: petro.One:::expect_equal_scale(nrow(df), 0, tolerance_pct = 0.01) at testthat/test_multipage.R:90
  2: testthat::expect_equal(object, expected, tolerance, scale)
  3: compare(act$val, exp$val, ...)
  4: compare.numeric(act$val, exp$val, ...)
  5: all.equal(x, y, tolerance = tolerance, check.attributes = check.attributes, ...)
  6: all.equal.numeric(x, y, tolerance = tolerance, check.attributes = check.attributes, 
         ...)
  7: stop(gettextf("'%s' must be logical", "check.attributes"), domain = NA)
  
  ── 3. Error: when read_multipage journal-paper only (@test_multipage.R#97)  ────
  'check.attributes' must be logical
  1: petro.One:::expect_equal_scale(nrow(df), 0, tolerance_pct = 0.01) at testthat/test_multipage.R:97
  2: testthat::expect_equal(object, expected, tolerance, scale)
  3: compare(act$val, exp$val, ...)
  4: compare.numeric(act$val, exp$val, ...)
  5: all.equal(x, y, tolerance = tolerance, check.attributes = check.attributes, ...)
  6: all.equal.numeric(x, y, tolerance = tolerance, check.attributes = check.attributes, 
         ...)
  7: stop(gettextf("'%s' must be logical", "check.attributes"), domain = NA)
  
  ── 4. Error: when read_multipage journal-paper only (@test_multipage.R#104)  ───
  'check.attributes' must be logical
  1: petro.One:::expect_equal_scale(nrow(df), 0, tolerance_pct = 0.01) at testthat/test_multipage.R:104
  2: testthat::expect_equal(object, expected, tolerance, scale)
  3: compare(act$val, exp$val, ...)
  4: compare.numeric(act$val, exp$val, ...)
  5: all.equal(x, y, tolerance = tolerance, check.attributes = check.attributes, ...)
  6: all.equal.numeric(x, y, tolerance = tolerance, check.attributes = check.attributes, 
         ...)
  7: stop(gettextf("'%s' must be logical", "check.attributes"), domain = NA)
  
  ── 5. Error: expect_equal_scale is 10% tolerance (@test_utils.R#6)  ────────────
  'check.attributes' must be logical
  1: expect_equal(petro.One:::expect_equal_scale(100, 100, tolerance_pct = 0.1), 100) at testthat/test_utils.R:6
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: petro.One:::expect_equal_scale(100, 100, tolerance_pct = 0.1)
  5: testthat::expect_equal(object, expected, tolerance, scale)
  6: compare(act$val, exp$val, ...)
  7: compare.numeric(act$val, exp$val, ...)
  8: all.equal(x, y, tolerance = tolerance, check.attributes = check.attributes, ...)
  9: all.equal.numeric(x, y, tolerance = tolerance, check.attributes = check.attributes, 
         ...)
  10: stop(gettextf("'%s' must be logical", "check.attributes"), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 78 SKIPPED: 0 FAILED: 5
  1. Error: when read_multipage standard type only (@test_multipage.R#79) 
  2. Error: when read_multipage journal-paper only (@test_multipage.R#90) 
  3. Error: when read_multipage journal-paper only (@test_multipage.R#97) 
  4. Error: when read_multipage journal-paper only (@test_multipage.R#104) 
  5. Error: expect_equal_scale is 10% tolerance (@test_utils.R#6) 
  
  Error: testthat unit tests failed
  Execution halted