Running 'test-all.R' [2s/3s]
Running the tests in 'tests/test-all.R' failed.
Complete output:
  > library("testthat")
  > test_check("rdatacite")
  Loading required package: rdatacite
  -- 1. Error: dc_search basic functionality works (@test-dc_search.R#4)  --------
  Reader error: control characters are not allowed: #84 at 7807
  1: vcr::use_cassette("dc_search", {
         aa <- dc_search(q = "*:*")
         expect_is(aa, "tbl_df")
         expect_is(aa$minted, "character")
         expect_lt(20, NCOL(aa))
         bb <- dc_search(q = "data", fl = c("doi", "updated"), rows = 2)
         expect_is(bb, "tbl_df")
         expect_named(bb, c("updated", "doi"))
         expect_equal(NROW(bb), 2)
         cc <- dc_search(q = "datacentre:global", fl = c("doi", "has_media"), rows = 2)
         expect_is(cc, "tbl_df")
         expect_named(cc, c("has_media", "doi"))
         expect_equal(NROW(cc), 2)
     }) at testthat/test-dc_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: dc_search works w/ csv output (@test-dc_search.R#30)  -------------
  Reader error: control characters are not allowed: #84 at 1594
  1: vcr::use_cassette("dc_search_csv", {
         aa <- dc_search(q = "*:*", fl = c("doi", "title"), wt = "csv")
         bb <- dc_search(q = "*:*", fl = c("doi", "title"))
         expect_is(aa, "tbl_df")
         expect_false(identical(aa, bb))
     }) at testthat/test-dc_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: 36 SKIPPED: 18 FAILED: 2
  1. Error: dc_search basic functionality works (@test-dc_search.R#4) 
  2. Error: dc_search works w/ csv output (@test-dc_search.R#30) 
  
  Error: testthat unit tests failed
  Execution halted