Running 'test-all.R' [3s/3s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library("testthat")
  > test_check("pangaear")
  Loading required package: pangaear
  Loading required namespace: jsonlite
  -- 1. Error: pg_search works and stuff, and stuff and things, also, it works (@t
  Reader error: control characters are not allowed: #9F at 41387
  1: vcr::use_cassette("pg_search", {
         aa <- pg_search(query = "water")
         bb <- pg_search(query = "water", count = 2)
         cc <- pg_search(query = "water", topic = "Oceans")
         dd <- pg_search(query = "water", mindate = "2013-06-01", maxdate = "2013-07-01")
         ee <- pg_search(query = "water", bbox = c(-124.2, 41.8, -116.8, 46.1))
         ff <- pg_search(query = "citation:Archer")
     }) at testthat/test-pg_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: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = NULL, 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 = vcr_configuration()$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: pg_search paging works (@test-pg_search.r#30)  --------------------
  Reader error: control characters are not allowed: #89 at 19087
  1: vcr::use_cassette("pg_search_pagination", {
         res1 <- pg_search(query = "florisphaera", count = 10)
         res2 <- pg_search(query = "florisphaera", count = 10, offset = 10)
         res3 <- pg_search(query = "florisphaera", count = 10, offset = 20)
     }) at testthat/test-pg_search.r:30
  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: Cassette$new(name = name, record = record, match_requests_on = match_requests_on, 
         re_record_interval = NULL, 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 = vcr_configuration()$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: 28 | SKIPPED: 8 | WARNINGS: 0 | FAILED: 2 ]
  1. Error: pg_search works and stuff, and stuff and things, also, it works (@test-pg_search.r#4) 
  2. Error: pg_search paging works (@test-pg_search.r#30) 
  
  Error: testthat unit tests failed
  Execution halted