Running ‘test-all.R’ [2s/2s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > library("testthat")
  > test_check("ritis")
  Loading required package: ritis
  
  Attaching package: 'ritis'
  
  The following object is masked from 'package:stats':
  
      terms
  
  ── 1. Error: any_match_count basic functionality works (@test-any_match_count.R#
  Please install 'httr'
  1: vcr::use_cassette("any_match_count", {
         aa <- any_match_count(x = 202385)
         expect_true(class(aa) %in% c("numeric", "integer"))
         expect_gt(aa, 0)
         bb <- any_match_count(x = "dolphin")
         expect_true(class(bb) %in% c("numeric", "integer"))
         expect_gt(bb, 0)
     }) at testthat/test-any_match_count.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 2. Error: any_match_count - xml works (@test-any_match_count.R#18)  ─────────
  Please install 'httr'
  1: vcr::use_cassette("any_match_count-xml", {
         aa <- any_match_count(202385, wt = "xml")
         expect_is(aa, "character")
         expect_true(grepl("xmlns", aa))
     }) at testthat/test-any_match_count.R:18
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 3. Error: any_match_count - raw JSON works (@test-any_match_count.R#27)  ────
  Please install 'httr'
  1: vcr::use_cassette("any_match_count-json", {
         aa <- any_match_count(202385, raw = TRUE)
         expect_is(aa, "character")
         expect_false(grepl("xmlns", aa))
     }) at testthat/test-any_match_count.R:27
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 4. Error: hierarchy_down basic functionality works (@test-hierarchy.R#4)  ───
  Please install 'httr'
  1: vcr::use_cassette("hierarchy_down", {
         aa <- hierarchy_down(tsn = 179913)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-hierarchy.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 5. Error: hierarchy_up basic functionality works (@test-hierarchy.R#16)  ────
  Please install 'httr'
  1: vcr::use_cassette("hierarchy_up", {
         aa <- hierarchy_up(tsn = 36485)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-hierarchy.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 6. Error: hierarchy_full basic functionality works (@test-hierarchy.R#28)  ──
  Please install 'httr'
  1: vcr::use_cassette("hierarchy_full", {
         aa <- hierarchy_full(tsn = 37906)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-hierarchy.R:28
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 7. Error: hierarchy functions fail well (@test-hierarchy.R#44)  ─────────────
  Please install 'httr'
  1: vcr::use_cassette("hierarchy-fails-well", {
         expect_error(hierarchy_down(tsn = "Asdfasdfa"), "Bad Request \\(HTTP 400\\)")
         expect_error(hierarchy_up(tsn = "Asdfasdfa"), "Bad Request \\(HTTP 400\\)")
         expect_error(hierarchy_full(tsn = "Asdfasdfa"), "Bad Request \\(HTTP 400\\)")
     }) at testthat/test-hierarchy.R:44
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 8. Error: itis_facet basic functionality works (@test-itis_facet.R#4)  ──────
  Please install 'httr'
  1: vcr::use_cassette("itis_facet", {
         aa <- sm(itis_facet(q = "rank:Species", rows = 0, facet.field = "kingdom"))
         expect_is(aa, "list")
         expect_is(aa$facet_fields, "list")
         expect_is(aa$facet_fields[[1]], "data.frame")
         expect_null(aa$facet_queries)
         expect_null(aa$facet_pivot)
         expect_null(aa$facet_dates)
         expect_null(aa$facet_ranges)
         expect_named(aa$facet_fields, "kingdom")
         expect_named(aa$facet_fields[[1]], c("term", "value"))
     }) at testthat/test-itis_facet.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 9. Error: itis_group basic functionality works (@test-itis_group.R#4)  ──────
  Please install 'httr'
  1: vcr::use_cassette("itis_group", {
         aa <- sm(itis_group(q = "nameWOInd:/[A-Za-z0-9]*[%20]{1,1}[A-Za-z0-9]*/", group.field = "rank", 
             group.limit = 3))
         expect_is(aa, "data.frame")
         expect_true(any(grepl("group", names(aa))))
     }) at testthat/test-itis_group.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 10. Error: itis_highlight basic functionality works (@test-itis_highlight.R#4
  Please install 'httr'
  1: vcr::use_cassette("itis_highlight", {
         aa <- sm(itis_highlight(q = "rank:Species", hl.fl = "rank", rows = 10))
         expect_is(aa, "tbl_df")
         expect_is(aa$rank[1], "character")
         expect_is(aa$names[1], "character")
         expect_named(aa, c("names", "rank"))
     }) at testthat/test-itis_highlight.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 11. Error: itis_search basic functionality works (@test-itis_search.R#4)  ───
  Please install 'httr'
  1: vcr::use_cassette("itis_search", {
         aa <- sm(itis_search(q = "tsn:182662"))
         bb <- sm(itis_search(q = "nameWOInd:Liquidamber\\%20styraciflua~0.4"))
         cc <- sm(itis_search(q = "nameWOInd:/[A-Ba-z0-9]*[%20]{0,0}*/"))
         expect_is(aa, "data.frame")
         expect_is(bb, "data.frame")
         expect_is(cc, "data.frame")
         expect_is(aa$tsn, "character")
         expect_true(grepl("Liquidambar", bb$nameWInd))
         expect_false(all(grepl("[C-D]", substring(cc$nameWOInd, 1, 1))))
     }) at testthat/test-itis_search.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 12. Error: jurisdictional_origin basic functionality works (@test-jurisdictio
  Please install 'httr'
  1: vcr::use_cassette("jurisdictional_origin", {
         aa <- jurisdictional_origin(tsn = 180543)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$origin, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-jurisdiction.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 13. Error: jurisdiction_origin_values - basic functionality works (@test-juri
  Please install 'httr'
  1: vcr::use_cassette("jurisdictional_origin_values", {
         aa <- jurisdiction_origin_values()
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_named(aa, c("jurisdiction", "origin"))
     }) at testthat/test-jurisdiction.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 14. Error: jurisdiction_values - basic functionality works (@test-jurisdictio
  Please install 'httr'
  1: vcr::use_cassette("jurisdiction_values", {
         aa <- jurisdiction_values()
         expect_is(aa, "character")
         expect_gt(length(aa), 1)
     }) at testthat/test-jurisdiction.R:27
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 15. Error: jurisdiction functions fail well (@test-jurisdiction.R#44)  ──────
  Please install 'httr'
  1: vcr::use_cassette("jurisdictional_origin-fails-well", {
         expect_error(jurisdictional_origin(tsn = "asdfasdf"), "Bad Request \\(HTTP 400\\)")
     }) at testthat/test-jurisdiction.R:44
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 16. Error: kingdom_name basic functionality works (@test-kingdoms.R#4)  ─────
  Please install 'httr'
  1: vcr::use_cassette("kingdom_name", {
         aa <- kingdom_name(202385)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_is(aa$kingdomname, "character")
         expect_equal(aa$kingdomname, "Animalia")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-kingdoms.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 17. Error: kingdom_names basic functionality works (@test-kingdoms.R#18)  ───
  Please install 'httr'
  1: vcr::use_cassette("kingdom_names", {
         aa <- kingdom_names()
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
         expect_true(any(grepl("Fungi", aa$kingdomname)))
     }) at testthat/test-kingdoms.R:18
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 18. Error: kingdom functions fail well (@test-kingdoms.R#35)  ───────────────
  Please install 'httr'
  1: vcr::use_cassette("kingdom_name-fails-well", {
         expect_error(kingdom_name(tsn = "Asdfasdfa"), "Bad Request \\(HTTP 400\\)")
     }) at testthat/test-kingdoms.R:35
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 19. Error: publications basic functionality works (@test-publications.R#4)  ─
  Please install 'httr'
  1: vcr::use_cassette("publications", {
         aa <- publications(tsn = 70340)
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$isbn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-publications.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 20. Error: publications - xml works (@test-publications.R#16)  ──────────────
  Please install 'httr'
  1: vcr::use_cassette("publications-xml", {
         aa <- publications(tsn = 70340, wt = "xml")
         expect_is(aa, "character")
         expect_match(aa, "xmlns")
     }) at testthat/test-publications.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 21. Error: publications - raw JSON works (@test-publications.R#26)  ─────────
  Please install 'httr'
  1: vcr::use_cassette("publications-json", {
         aa <- publications(tsn = 70340, raw = TRUE)
         expect_is(aa, "character")
         expect_false(grepl("xmlns", aa))
     }) at testthat/test-publications.R:26
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 22. Error: publications fails well (@test-publications.R#38)  ───────────────
  Please install 'httr'
  1: vcr::use_cassette("publications-fails-well", {
         expect_error(publications(tsn = "Asdfasdfa"), "Bad Request \\(HTTP 400\\)")
     }) at testthat/test-publications.R:38
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 23. Error: record basic functionality works (@test-record.R#4)  ─────────────
  Please install 'httr'
  1: vcr::use_cassette("record", {
         aa <- record(lsid = "urn:lsid:itis.gov:itis_tsn:180543")
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$lsid, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-record.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 24. Error: record - xml works (@test-record.R#16)  ──────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("record-xml", {
         aa <- record(lsid = "urn:lsid:itis.gov:itis_tsn:180543", wt = "xml")
         expect_is(aa, "character")
         expect_match(aa, "xmlns")
     }) at testthat/test-record.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 25. Error: record - raw JSON works (@test-record.R#25)  ─────────────────────
  Please install 'httr'
  1: vcr::use_cassette("record-json", {
         aa <- record(lsid = "urn:lsid:itis.gov:itis_tsn:180543", raw = TRUE)
         expect_is(aa, "character")
         expect_false(grepl("xmlns", aa))
     }) at testthat/test-record.R:25
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 26. Error: record fail well (@test-record.R#38)  ────────────────────────────
  Please install 'httr'
  1: vcr::use_cassette("record-fails-well", {
         tmp <- record(lsid = "asdfasdf")
         expect_is(tmp, "tbl_df")
         expect_equal(NROW(tmp), 0)
     }) at testthat/test-record.R:38
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 27. Error: search_common basic functionality works (@test-search_common.R#4) 
  Please install 'httr'
  1: vcr::use_cassette("search_common", {
         aa <- search_common(x = "american bullfrog")
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-search_common.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 28. Error: search_common - xml works (@test-search_common.R#16)  ────────────
  Please install 'httr'
  1: vcr::use_cassette("search_common-xml", {
         aa <- search_common(x = "american bullfrog", wt = "xml")
         expect_is(aa, "character")
         expect_true(grepl("xmlns", aa))
     }) at testthat/test-search_common.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 29. Error: search_common - raw JSON works (@test-search_common.R#25)  ───────
  Please install 'httr'
  1: vcr::use_cassette("search_common-json", {
         aa <- search_common(x = "american bullfrog", raw = TRUE)
         expect_is(aa, "character")
         expect_false(grepl("xmlns", aa))
     }) at testthat/test-search_common.R:25
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 30. Error: search_common fails well (@test-search_common.R#37)  ─────────────
  Please install 'httr'
  1: vcr::use_cassette("search_common-fails-well", {
         tmp <- search_common(x = "asdfadf")
         expect_is(tmp, "tbl_df")
         expect_equal(NROW(tmp), 0)
     }) at testthat/test-search_common.R:37
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 31. Error: search_scientific basic functionality works (@test-search_scientif
  Please install 'httr'
  1: vcr::use_cassette("search_scientific", {
         aa <- search_scientific("Tardigrada")
         expect_is(aa, "data.frame")
         expect_is(aa, "tbl_df")
         expect_is(aa$tsn, "character")
         expect_gt(NROW(aa), 0)
     }) at testthat/test-search_scientific.R:4
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 32. Error: search_scientific - xml works (@test-search_scientific.R#16)  ────
  Please install 'httr'
  1: vcr::use_cassette("search_scientific-xml", {
         aa <- search_scientific("Tardigrada", wt = "xml")
         expect_is(aa, "character")
         expect_true(grepl("xmlns", aa))
     }) at testthat/test-search_scientific.R:16
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 33. Error: search_scientific - raw JSON works (@test-search_scientific.R#25) 
  Please install 'httr'
  1: vcr::use_cassette("search_scientific-json", {
         aa <- search_scientific("Tardigrada", raw = TRUE)
         expect_is(aa, "character")
         expect_false(grepl("xmlns", aa))
     }) at testthat/test-search_scientific.R:25
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ── 34. Error: search_scientific fails well (@test-search_scientific.R#37)  ─────
  Please install 'httr'
  1: vcr::use_cassette("search_scientific-fail-well", {
         tmp <- search_scientific(x = "asdfadf", wt = "json")
         expect_is(tmp, "tbl_df")
         expect_equal(NROW(tmp), 0)
     }) at testthat/test-search_scientific.R:37
  2: insert_cassette(name, record = record, match_requests_on = match_requests_on, update_content_length_header = update_content_length_header, 
         allow_playback_repeats = allow_playback_repeats, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  3: webmockr::enable()
  4: vapply(http_lib_adapter_registry$adapters, function(z) {
         z$enable()
     }, logical(1))
  5: FUN(X[[i]], ...)
  6: z$enable()
  7: httr_mock(TRUE)
  8: check_for_pkg("httr")
  9: stop(sprintf("Please install '%s'", x), call. = FALSE)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 18 SKIPPED: 4 FAILED: 34
  1. Error: any_match_count basic functionality works (@test-any_match_count.R#4) 
  2. Error: any_match_count - xml works (@test-any_match_count.R#18) 
  3. Error: any_match_count - raw JSON works (@test-any_match_count.R#27) 
  4. Error: hierarchy_down basic functionality works (@test-hierarchy.R#4) 
  5. Error: hierarchy_up basic functionality works (@test-hierarchy.R#16) 
  6. Error: hierarchy_full basic functionality works (@test-hierarchy.R#28) 
  7. Error: hierarchy functions fail well (@test-hierarchy.R#44) 
  8. Error: itis_facet basic functionality works (@test-itis_facet.R#4) 
  9. Error: itis_group basic functionality works (@test-itis_group.R#4) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted