Running ‘testthat.R’ [18s/19s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(httptest)
  Loading required package: testthat
  > test_check("edgarWebR")
  Loading required package: edgarWebR
  ── 1. Error: Basics (type 4) (@test_filing_details.R#6)  ───────────────────────
  replacement has 1 row, data has 0
  1: filing_details(href) at testthat/test_filing_details.R:6
  2: filing_details.character(href)
  3: filing_details(charToDoc(x))
  4: filing_details.xml_node(charToDoc(x))
  5: filing_information(x)
  6: filing_information.xml_node(x)
  7: map_xml(x, info_xpath, info_pieces, trim = info_trim, integers = c("bytes", "documents"))
  8: `[<-`(`*tmp*`, empties, col, value = NA)
  9: `[<-.data.frame`(`*tmp*`, empties, col, value = NA)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 2. Error: Use Doc (type 485APOS) (@test_filing_details.R#25)  ───────────────
  replacement has 1 row, data has 0
  1: filing_details(href) at testthat/test_filing_details.R:25
  2: filing_details.character(href)
  3: filing_details(charToDoc(x))
  4: filing_details.xml_node(charToDoc(x))
  5: filing_information(x)
  6: filing_information.xml_node(x)
  7: map_xml(x, info_xpath, info_pieces, trim = info_trim, integers = c("bytes", "documents"))
  8: `[<-`(`*tmp*`, empties, col, value = NA)
  9: `[<-.data.frame`(`*tmp*`, empties, col, value = NA)
  10: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 3. Error: Manages iXBRL (@test_filing_documents.R#23)  ──────────────────────
  replacement has 1 row, data has 0
  1: filing_documents(href) at testthat/test_filing_documents.R:23
  2: filing_documents.character(href)
  3: filing_documents(charToDoc(x))
  4: filing_documents.xml_node(charToDoc(x))
  5: map_xml(x, entries_xpath, info_pieces, integers = c("seq", "size"))
  6: `[<-`(`*tmp*`, empties, col, value = NA)
  7: `[<-.data.frame`(`*tmp*`, empties, col, value = NA)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ── 4. Error: Basics (type 4) (@test_filing_information.R#6)  ───────────────────
  replacement has 1 row, data has 0
  1: filing_information(href) at testthat/test_filing_information.R:6
  2: filing_information.character(href)
  3: filing_information(charToDoc(x))
  4: filing_information.xml_node(charToDoc(x))
  5: map_xml(x, info_xpath, info_pieces, trim = info_trim, integers = c("bytes", "documents"))
  6: `[<-`(`*tmp*`, empties, col, value = NA)
  7: `[<-.data.frame`(`*tmp*`, empties, col, value = NA)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 210 SKIPPED: 14 FAILED: 4
  1. Error: Basics (type 4) (@test_filing_details.R#6) 
  2. Error: Use Doc (type 485APOS) (@test_filing_details.R#25) 
  3. Error: Manages iXBRL (@test_filing_documents.R#23) 
  4. Error: Basics (type 4) (@test_filing_information.R#6) 
  
  Error: testthat unit tests failed
  Execution halted