Running ‘testthat.R’ [1m/12m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(petro.One)
  > 
  > test_check("petro.One")
  ── 1. Error: (unknown) (@test_GTE-summary_by.R#55)  ────────────────────────────
  Timeout was reached: Resolving timed out after 10000 milliseconds
  1: papers_by_year(my_url) at testthat/test_GTE-summary_by.R:55
  2: xml2::read_html(url)
  3: read_html.default(url)
  4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
  7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
  8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x, 
         options = options)
  9: open(x, "rb")
  10: open.connection(x, "rb")
  
  ── 2. Error: all queries match expected values (@test_GTE_paper_count.R#132)  ──
  Timeout was reached: Resolving timed out after 10000 milliseconds
  1: get_papers_count(my_url) at testthat/test_GTE_paper_count.R:132
  2: xml2::read_html(url)
  3: read_html.default(url)
  4: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
  5: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  6: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
  7: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
  8: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x, 
         options = options)
  9: open(x, "rb")
  10: open.connection(x, "rb")
  
  ── 3. 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)
  
  ── 4. 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)
  
  ── 5. 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)
  
  ── 6. 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)
  
  ── 7. Error: search returns 2 papers (@test_paper_by_type.R#86)  ───────────────
  Timeout was reached: Resolving timed out after 10000 milliseconds
  1: xml2::read_html(my_url) at testthat/test_paper_by_type.R:86
  2: read_html.default(my_url)
  3: suppressWarnings(read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options))
  4: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  5: read_xml(x, encoding = encoding, ..., as_html = TRUE, options = options)
  6: read_xml.character(x, encoding = encoding, ..., as_html = TRUE, options = options)
  7: read_xml.connection(con, encoding = encoding, ..., as_html = as_html, base_url = x, 
         options = options)
  8: open(x, "rb")
  9: open.connection(x, "rb")
  
  ── 8. 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: 62 SKIPPED: 0 FAILED: 8
  1. Error: (unknown) (@test_GTE-summary_by.R#55) 
  2. Error: all queries match expected values (@test_GTE_paper_count.R#132) 
  3. Error: when read_multipage standard type only (@test_multipage.R#79) 
  4. Error: when read_multipage journal-paper only (@test_multipage.R#90) 
  5. Error: when read_multipage journal-paper only (@test_multipage.R#97) 
  6. Error: when read_multipage journal-paper only (@test_multipage.R#104) 
  7. Error: search returns 2 papers (@test_paper_by_type.R#86) 
  8. Error: expect_equal_scale is 10% tolerance (@test_utils.R#6) 
  
  Error: testthat unit tests failed
  In addition: Warning message:
  closing unused connection 3 (https://www.onepetro.org/search?q="IPR+Prosper"&peer_reviewed=&published_between=&from_year=&to_year=) 
  Execution halted