Running 'testthat.R' [21s/33s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library('testthat')
  > test_check("spocc")
  Loading required package: spocc
  -- 1. Error: Taxon identifier searches work (@test-idbasedsearch.R#10)  --------
  Reader error: control characters are not allowed: #9F at 78805
  1: vcr::use_cassette("identifier_based_searches", {
         byid1 <- occ(ids = ids[[1]], from = "bison", limit = 5)
         byid2 <- occ(ids = ids, from = c("bison", "gbif"), limit = 5)
         byid3 <- occ(ids = ids2, from = "gbif", limit = 5)
         byid4 <- occ(ids = ids3, from = "gbif", limit = 5)
         byid5 <- occ(ids = ids4, from = "bison", limit = 5)
     }) at testthat/test-idbasedsearch.R:10
  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, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions)
  3: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions, 
         tag = NULL, tags = NULL, update_content_length_header = update_content_length_header, 
         decode_compressed_response = NULL, allow_playback_repeats = allow_playback_repeats, 
         allow_unused_http_interactions = NULL, exclusive = NULL, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  4: .subset2(public_bind_env, "initialize")(...)
  5: self$http_interactions()
  6: HTTPInteractionList$new(interactions = {
         if (self$should_stub_requests()) {
             self$previously_recorded_interactions()
         }
         else {
             list()
         }
     }, request_matchers = self$match_requests_on)
  7: .subset2(public_bind_env, "initialize")(...)
  8: self$previously_recorded_interactions()
  9: compact(lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     }))
  10: Filter(Negate(is.null), x)
  11: unlist(lapply(x, f))
  12: lapply(x, f)
  13: lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     })
  14: self$deserialized_hash()
  15: self$serializer$deserialize_path()
  16: yaml::yaml.load(str)
  
  -- 2. Error: taxize based searches works with > 1 get_ids input (@test-taxize-in
  Reader error: control characters are not allowed: #9F at 60864
  1: vcr::use_cassette("taxize_integration_morethan1id", {
         bb <- occ(ids = ids6, from = c("bison", "gbif"), limit = 20)
     }) at testthat/test-taxize-integration.R:34
  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, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions)
  3: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions, 
         tag = NULL, tags = NULL, update_content_length_header = update_content_length_header, 
         decode_compressed_response = NULL, allow_playback_repeats = allow_playback_repeats, 
         allow_unused_http_interactions = NULL, exclusive = NULL, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  4: .subset2(public_bind_env, "initialize")(...)
  5: self$http_interactions()
  6: HTTPInteractionList$new(interactions = {
         if (self$should_stub_requests()) {
             self$previously_recorded_interactions()
         }
         else {
             list()
         }
     }, request_matchers = self$match_requests_on)
  7: .subset2(public_bind_env, "initialize")(...)
  8: self$previously_recorded_interactions()
  9: compact(lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     }))
  10: Filter(Negate(is.null), x)
  11: unlist(lapply(x, f))
  12: lapply(x, f)
  13: lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     })
  14: self$deserialized_hash()
  15: self$serializer$deserialize_path()
  16: yaml::yaml.load(str)
  
  -- 3. Error: taxize based searches works with single get_ids input (@test-taxize
  Reader error: control characters are not allowed: #9F at 4469
  1: vcr::use_cassette("taxize_integration_1id", {
         cc <- occ(ids = ids7, from = "gbif", limit = 20)
     }) at testthat/test-taxize-integration.R:54
  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, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions)
  3: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions, 
         tag = NULL, tags = NULL, update_content_length_header = update_content_length_header, 
         decode_compressed_response = NULL, allow_playback_repeats = allow_playback_repeats, 
         allow_unused_http_interactions = NULL, exclusive = NULL, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  4: .subset2(public_bind_env, "initialize")(...)
  5: self$http_interactions()
  6: HTTPInteractionList$new(interactions = {
         if (self$should_stub_requests()) {
             self$previously_recorded_interactions()
         }
         else {
             list()
         }
     }, request_matchers = self$match_requests_on)
  7: .subset2(public_bind_env, "initialize")(...)
  8: self$previously_recorded_interactions()
  9: compact(lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     }))
  10: Filter(Negate(is.null), x)
  11: unlist(lapply(x, f))
  12: lapply(x, f)
  13: lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     })
  14: self$deserialized_hash()
  15: self$serializer$deserialize_path()
  16: yaml::yaml.load(str)
  
  -- 4. Error: taxize based searches works with get_gbifid input (@test-taxize-int
  Reader error: control characters are not allowed: #9F at 4469
  1: vcr::use_cassette("taxize_integration_get_gbifid", {
         dd <- occ(ids = ids8, from = "gbif", limit = 20)
     }) at testthat/test-taxize-integration.R:70
  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, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions)
  3: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions, 
         tag = NULL, tags = NULL, update_content_length_header = update_content_length_header, 
         decode_compressed_response = NULL, allow_playback_repeats = allow_playback_repeats, 
         allow_unused_http_interactions = NULL, exclusive = NULL, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  4: .subset2(public_bind_env, "initialize")(...)
  5: self$http_interactions()
  6: HTTPInteractionList$new(interactions = {
         if (self$should_stub_requests()) {
             self$previously_recorded_interactions()
         }
         else {
             list()
         }
     }, request_matchers = self$match_requests_on)
  7: .subset2(public_bind_env, "initialize")(...)
  8: self$previously_recorded_interactions()
  9: compact(lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     }))
  10: Filter(Negate(is.null), x)
  11: unlist(lapply(x, f))
  12: lapply(x, f)
  13: lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     })
  14: self$deserialized_hash()
  15: self$serializer$deserialize_path()
  16: yaml::yaml.load(str)
  
  -- 5. Error: taxize based searches works with get_tsn input (@test-taxize-integr
  Reader error: control characters are not allowed: #89 at 2310
  1: vcr::use_cassette("taxize_integration_get_tsn", {
         ee <- occ(ids = ids9, from = "bison", limit = 20)
     }) at testthat/test-taxize-integration.R:88
  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, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions)
  3: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = re_record_interval, clean_outdated_http_interactions = clean_outdated_http_interactions, 
         tag = NULL, tags = NULL, update_content_length_header = update_content_length_header, 
         decode_compressed_response = NULL, allow_playback_repeats = allow_playback_repeats, 
         allow_unused_http_interactions = NULL, exclusive = NULL, serialize_with = serialize_with, 
         persist_with = persist_with, preserve_exact_body_bytes = preserve_exact_body_bytes)
  4: .subset2(public_bind_env, "initialize")(...)
  5: self$http_interactions()
  6: HTTPInteractionList$new(interactions = {
         if (self$should_stub_requests()) {
             self$previously_recorded_interactions()
         }
         else {
             list()
         }
     }, request_matchers = self$match_requests_on)
  7: .subset2(public_bind_env, "initialize")(...)
  8: self$previously_recorded_interactions()
  9: compact(lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     }))
  10: Filter(Negate(is.null), x)
  11: unlist(lapply(x, f))
  12: lapply(x, f)
  13: lapply(self$deserialized_hash()[["http_interactions"]], function(z) {
         response <- VcrResponse$new(z$response$status, z$response$headers, z$response$body$string, 
             self$cassette_opts)
         if (self$update_content_length_header) 
             response$update_content_length_header()
         zz <- HTTPInteraction$new(request = Request$new(z$request$method, z$request$uri, 
             z$request$body$string, z$request$headers), response = response)
         hash <- zz$to_hash()
         if (request_ignorer$should_be_ignored(hash$request)) 
             NULL
         else hash
     })
  14: self$deserialized_hash()
  15: self$serializer$deserialize_path()
  16: yaml::yaml.load(str)
  
  == testthat results  ===========================================================
  [ OK: 94 | SKIPPED: 10 | WARNINGS: 2 | FAILED: 5 ]
  1. Error: Taxon identifier searches work (@test-idbasedsearch.R#10) 
  2. Error: taxize based searches works with > 1 get_ids input (@test-taxize-integration.R#34) 
  3. Error: taxize based searches works with single get_ids input (@test-taxize-integration.R#54) 
  4. Error: taxize based searches works with get_gbifid input (@test-taxize-integration.R#70) 
  5. Error: taxize based searches works with get_tsn input (@test-taxize-integration.R#88) 
  
  Error: testthat unit tests failed
  Execution halted