Running 'testthat.R' [7s/137s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(postal)
  > 
  > test_check("postal")
  -- 1. Error: fetch_zones_three_digit() (@test_fetch_zones.R#13)  ---------------
  Argument 3 must be length 1, not 0
  1: testthat::expect_warning(fetch_zones_three_digit("9999999")) at testthat/test_fetch_zones.R:13
  2: quasi_capture(enquo(object), capture_warnings, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: fetch_zones_three_digit("9999999")
  7: get_zones_three_digit(origin_zip = origin_zip, destination_zip = NULL, n_tries = n_tries, 
         verbose = verbose)
  8: suppressWarnings({
         out <- out %>% clean_zones(origin_zip)
         out <- out %>% dplyr::mutate(validity = "valid")
         if (verbose) {
             message(glue::glue("Recieved \\\n                           {as.numeric(max(out$dest_zip_end)) - as.numeric(min(out$dest_zip_start))} \\\n                           destination ZIPs for \\\n                           {as.numeric(max(out$zone)) - as.numeric(min(out$zone))} \\\n                           zones."))
         }
     })
  9: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  10: out %>% clean_zones(origin_zip)
  ...
  18: clean_zones(., origin_zip)
  19: dat[!names(dat) %in% to_ignore] %>% dplyr::bind_rows() %>% tibble::as_tibble()
  20: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  21: eval(quote(`_fseq`(`_lhs`)), env, env)
  22: eval(quote(`_fseq`(`_lhs`)), env, env)
  23: `_fseq`(`_lhs`)
  24: freduce(value, `_function_list`)
  25: function_list[[i]](value)
  26: dplyr::bind_rows(.)
  27: bind_rows_(x, .id)
  
  -- 2. Failure: Five digit fetch (@test_fetch_zones.R#77)  ----------------------
  `fetch_zones_five_digit("86753", "11238")` did not throw an error.
  
  -- 3. Failure: Five digit fetch (@test_fetch_zones.R#79)  ----------------------
  `fetch_zones_five_digit("00001", "60647")` did not throw an error.
  
  -- 4. Failure: Five digit fetch (@test_fetch_zones.R#80)  ----------------------
  `fetch_zones_five_digit("11238", "00003")` did not throw an error.
  
  -- 5. Failure: Priority Mail exceptions are noted (@test_fetch_zones.R#92)  ----
  nchar(has_priority_exceptions$full_response) is not more than 10. Difference: -10
  
  -- 6. Error: 3 and 5 digit endpoints agree on zone (@test_fetch_zones.R#103)  --
  Argument 3 must be length 1, not 0
  1: purrr::map2_dfr(origins, destinations, fetch_zones_three_digit) at testthat/test_fetch_zones.R:103
  2: map2(.x, .y, .f, ...)
  3: .f(.x[[i]], .y[[i]], ...)
  4: get_zones_three_digit(origin_zip = origin_zip, destination_zip = NULL, n_tries = n_tries, 
         verbose = verbose)
  5: suppressWarnings({
         out <- out %>% clean_zones(origin_zip)
         out <- out %>% dplyr::mutate(validity = "valid")
         if (verbose) {
             message(glue::glue("Recieved \\\n                           {as.numeric(max(out$dest_zip_end)) - as.numeric(min(out$dest_zip_start))} \\\n                           destination ZIPs for \\\n                           {as.numeric(max(out$zone)) - as.numeric(min(out$zone))} \\\n                           zones."))
         }
     })
  6: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  7: out %>% clean_zones(origin_zip)
  8: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  9: eval(quote(`_fseq`(`_lhs`)), env, env)
  10: eval(quote(`_fseq`(`_lhs`)), env, env)
  ...
  15: clean_zones(., origin_zip)
  16: dat[!names(dat) %in% to_ignore] %>% dplyr::bind_rows() %>% tibble::as_tibble()
  17: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  18: eval(quote(`_fseq`(`_lhs`)), env, env)
  19: eval(quote(`_fseq`(`_lhs`)), env, env)
  20: `_fseq`(`_lhs`)
  21: freduce(value, `_function_list`)
  22: function_list[[i]](value)
  23: dplyr::bind_rows(.)
  24: bind_rows_(x, .id)
  
  -- 7. Error: (unknown) (@test_fetch_zones.R#120)  ------------------------------
  Argument 3 must be length 1, not 0
  1: fetch_all(sample(all_possible_origins, 2), write_to = here::here("tmp", "test_file.csv")) at testthat/test_fetch_zones.R:120
  2: origins %>% purrr::map_dfr(fetch_and_sleep)
  3: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  4: eval(quote(`_fseq`(`_lhs`)), env, env)
  5: eval(quote(`_fseq`(`_lhs`)), env, env)
  6: `_fseq`(`_lhs`)
  7: freduce(value, `_function_list`)
  8: withVisible(function_list[[k]](value))
  9: function_list[[k]](value)
  10: purrr::map_dfr(., fetch_and_sleep)
  ...
  25: clean_zones(., origin_zip)
  26: dat[!names(dat) %in% to_ignore] %>% dplyr::bind_rows() %>% tibble::as_tibble()
  27: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  28: eval(quote(`_fseq`(`_lhs`)), env, env)
  29: eval(quote(`_fseq`(`_lhs`)), env, env)
  30: `_fseq`(`_lhs`)
  31: freduce(value, `_function_list`)
  32: function_list[[i]](value)
  33: dplyr::bind_rows(.)
  34: bind_rows_(x, .id)
  
  -- 8. Failure: Safely getting data works (@test_utils.R#18)  -------------------
  get_data(good_url) has length 9, not length 7.
  
  -- 9. Error: Assignment of validity (@test_utils.R#97)  ------------------------
  Argument 3 must be length 1, not 0
  1: testthat::expect_message(fetch_zones_three_digit("1"), "Origin zip 001 is not in use.") at testthat/test_utils.R:97
  2: quasi_capture(enquo(object), capture_messages, label = label)
  3: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  4: withCallingHandlers(code, message = function(condition) {
         out$push(condition)
         invokeRestart("muffleMessage")
     })
  5: eval_bare(get_expr(quo), get_env(quo))
  6: fetch_zones_three_digit("1")
  7: get_zones_three_digit(origin_zip = origin_zip, destination_zip = NULL, n_tries = n_tries, 
         verbose = verbose)
  8: suppressWarnings({
         out <- out %>% clean_zones(origin_zip)
         out <- out %>% dplyr::mutate(validity = "valid")
         if (verbose) {
             message(glue::glue("Recieved \\\n                           {as.numeric(max(out$dest_zip_end)) - as.numeric(min(out$dest_zip_start))} \\\n                           destination ZIPs for \\\n                           {as.numeric(max(out$zone)) - as.numeric(min(out$zone))} \\\n                           zones."))
         }
     })
  9: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  10: out %>% clean_zones(origin_zip)
  ...
  18: clean_zones(., origin_zip)
  19: dat[!names(dat) %in% to_ignore] %>% dplyr::bind_rows() %>% tibble::as_tibble()
  20: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  21: eval(quote(`_fseq`(`_lhs`)), env, env)
  22: eval(quote(`_fseq`(`_lhs`)), env, env)
  23: `_fseq`(`_lhs`)
  24: freduce(value, `_function_list`)
  25: function_list[[i]](value)
  26: dplyr::bind_rows(.)
  27: bind_rows_(x, .id)
  
  -- 10. Error: Interpolation of zips in between ranges (@test_utils.R#121)  -----
  Argument 3 must be length 1, not 0
  1: testthat::expect_equal(2422, get_zones_three_digit("123") %>% interpolate_zips() %>% 
         nrow()) at testthat/test_utils.R:121
  2: quasi_label(enquo(expected), expected.label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: get_zones_three_digit("123") %>% interpolate_zips() %>% nrow()
  5: eval(lhs, parent, parent)
  6: eval(lhs, parent, parent)
  7: get_zones_three_digit("123")
  8: suppressWarnings({
         out <- out %>% clean_zones(origin_zip)
         out <- out %>% dplyr::mutate(validity = "valid")
         if (verbose) {
             message(glue::glue("Recieved \\\n                           {as.numeric(max(out$dest_zip_end)) - as.numeric(min(out$dest_zip_start))} \\\n                           destination ZIPs for \\\n                           {as.numeric(max(out$zone)) - as.numeric(min(out$zone))} \\\n                           zones."))
         }
     })
  9: withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
  10: out %>% clean_zones(origin_zip)
  ...
  18: clean_zones(., origin_zip)
  19: dat[!names(dat) %in% to_ignore] %>% dplyr::bind_rows() %>% tibble::as_tibble()
  20: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  21: eval(quote(`_fseq`(`_lhs`)), env, env)
  22: eval(quote(`_fseq`(`_lhs`)), env, env)
  23: `_fseq`(`_lhs`)
  24: freduce(value, `_function_list`)
  25: function_list[[i]](value)
  26: dplyr::bind_rows(.)
  27: bind_rows_(x, .id)
  
  -- 11. Error: Scrubbing works (@test_utils.R#172)  -----------------------------
  argument is of length zero
  1: extract_dates(sample_day) at testthat/test_utils.R:172
  
  == testthat results  ===========================================================
  OK: 73 SKIPPED: 0 FAILED: 11
  1. Error: fetch_zones_three_digit() (@test_fetch_zones.R#13) 
  2. Failure: Five digit fetch (@test_fetch_zones.R#77) 
  3. Failure: Five digit fetch (@test_fetch_zones.R#79) 
  4. Failure: Five digit fetch (@test_fetch_zones.R#80) 
  5. Failure: Priority Mail exceptions are noted (@test_fetch_zones.R#92) 
  6. Error: 3 and 5 digit endpoints agree on zone (@test_fetch_zones.R#103) 
  7. Error: (unknown) (@test_fetch_zones.R#120) 
  8. Failure: Safely getting data works (@test_utils.R#18) 
  9. Error: Assignment of validity (@test_utils.R#97) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted