Running 'testthat.R' [6s/6s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(rromeo)
  > 
  > test_check("rromeo")
  -- 1. Error: rr_journal_name() works (@test-rr_journal_name.R#4)  --------------
  Reader error: control characters are not allowed: #80 at 5955
  1: use_cassette("rr_journal_name", {
         res <- rr_journal_name("Journal of Geology")
         expect_is(res, "data.frame")
         expect_named(res, c("title", "issn", "romeocolour", "preprint", "postprint", 
             "pdf", "pre_embargo", "post_embargo", "pdf_embargo"))
         expect_equal(res$issn, "0022-1376")
         expect_is(res$romeocolour, "character")
         expect_is(res$preprint, "character")
     }) at testthat/test-rr_journal_name.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, 
         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: 149 | SKIPPED: 1 | WARNINGS: 0 | FAILED: 1 ]
  1. Error: rr_journal_name() works (@test-rr_journal_name.R#4) 
  
  Error: testthat unit tests failed
  Execution halted