Running ‘test-all.R’ [3s/8s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > 
  > library(testthat)
  > 
  > test_check("prettymapr")
  Loading required package: prettymapr
  
  |                                                    |  0%                      
  |                                                    |  0%                      ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_geocode.R:8:5): geocode output is consistent ────────────────────
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. └─prettymapr::geocode("wolfville, ns", output = "data.frame", source = source) test_geocode.R:8:4
    2.   └─plyr::adply(...)
    3.     └─plyr::ldply(...)
    4.       └─plyr::llply(...)
    5.         ├─plyr:::loop_apply(n, do.ply)
    6.         └─(function (i) ...
    7.           └─prettymapr:::.fun(piece, ...)
    8.             └─prettymapr:::geocoder_partial(row$query)
    9.               └─prettymapr:::geocoder(...)
   10.                 └─plyr::adply(...)
   11.                   └─plyr::ldply(...)
   12.                     └─plyr::llply(...)
   13.                       ├─plyr:::loop_apply(n, do.ply)
   14.                       └─(function (i) ...
   15.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:65:3): emptys and nulls produce the correct output ────
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. └─prettymapr::geocode("wolfville, ns", output = "data.frame") test_geocode.R:65:2
    2.   └─plyr::adply(...)
    3.     └─plyr::ldply(...)
    4.       └─plyr::llply(...)
    5.         ├─plyr:::loop_apply(n, do.ply)
    6.         └─(function (i) ...
    7.           └─prettymapr:::.fun(piece, ...)
    8.             └─prettymapr:::geocoder_partial(row$query)
    9.               └─prettymapr:::geocoder(...)
   10.                 └─plyr::adply(...)
   11.                   └─plyr::ldply(...)
   12.                     └─plyr::llply(...)
   13.                       ├─plyr:::loop_apply(n, do.ply)
   14.                       └─(function (i) ...
   15.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:75:5): output is vectorized with correct lengths ──────
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. └─prettymapr::geocode(cities, output = "data.frame", source = "pickpoint") test_geocode.R:75:4
    2.   └─plyr::adply(...)
    3.     └─plyr::ldply(...)
    4.       └─plyr::llply(...)
    5.         ├─plyr:::loop_apply(n, do.ply)
    6.         └─(function (i) ...
    7.           └─prettymapr:::.fun(piece, ...)
    8.             └─prettymapr:::geocoder_partial(row$query)
    9.               └─prettymapr:::geocoder(...)
   10.                 └─plyr::adply(...)
   11.                   └─plyr::ldply(...)
   12.                     └─plyr::llply(...)
   13.                       ├─plyr:::loop_apply(n, do.ply)
   14.                       └─(function (i) ...
   15.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:75:5): output is vectorized with correct lengths ──────
  Error: argument is of length zero
  Backtrace:
      █
   1. └─prettymapr::geocode(cities, output = "data.frame", source = "pickpoint") test_geocode.R:75:4
   2.   └─plyr::adply(...)
   3.     └─plyr::ldply(...)
   4.       └─plyr::llply(...)
   5.         └─progress$term()
   6.           ├─base::close(txt)
   7.           └─utils:::close.txtProgressBar(txt)
   8.             └─con$kill()
  ── Error (test_geocode.R:101:3): invalid parameters are detected ───────────────
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. ├─testthat::expect_message(...) test_geocode.R:101:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─prettymapr::geocode("something", messaging = TRUE)
    7.   └─plyr::adply(...)
    8.     └─plyr::ldply(...)
    9.       └─plyr::llply(...)
   10.         ├─plyr:::loop_apply(n, do.ply)
   11.         └─(function (i) ...
   12.           └─prettymapr:::.fun(piece, ...)
   13.             └─prettymapr:::geocoder_partial(row$query)
   14.               └─prettymapr:::geocoder(...)
   15.                 └─plyr::adply(...)
   16.                   └─plyr::ldply(...)
   17.                     └─plyr::llply(...)
   18.                       ├─plyr:::loop_apply(n, do.ply)
   19.                       └─(function (i) ...
   20.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:110:3): mesages are printed when defaults are guessed ──
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. ├─testthat::expect_message(geocode("something"), "Using default API key for pickpoint.io.") test_geocode.R:110:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─prettymapr::geocode("something")
    7.   └─plyr::adply(...)
    8.     └─plyr::ldply(...)
    9.       └─plyr::llply(...)
   10.         ├─plyr:::loop_apply(n, do.ply)
   11.         └─(function (i) ...
   12.           └─prettymapr:::.fun(piece, ...)
   13.             └─prettymapr:::geocoder_partial(row$query)
   14.               └─prettymapr:::geocoder(...)
   15.                 └─plyr::adply(...)
   16.                   └─plyr::ldply(...)
   17.                     └─plyr::llply(...)
   18.                       ├─plyr:::loop_apply(n, do.ply)
   19.                       └─(function (i) ...
   20.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:136:3): vectors that contain zero-length input don't screw up the query / source columns ──
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. └─prettymapr::geocode(cities) test_geocode.R:136:2
    2.   └─plyr::adply(...)
    3.     └─plyr::ldply(...)
    4.       └─plyr::llply(...)
    5.         ├─plyr:::loop_apply(n, do.ply)
    6.         └─(function (i) ...
    7.           └─prettymapr:::.fun(piece, ...)
    8.             └─prettymapr:::geocoder_partial(row$query)
    9.               └─prettymapr:::geocoder(...)
   10.                 └─plyr::adply(...)
   11.                   └─plyr::ldply(...)
   12.                     └─plyr::llply(...)
   13.                       ├─plyr:::loop_apply(n, do.ply)
   14.                       └─(function (i) ...
   15.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:136:3): vectors that contain zero-length input don't screw up the query / source columns ──
  Error: argument is of length zero
  Backtrace:
      █
   1. └─prettymapr::geocode(cities) test_geocode.R:136:2
   2.   └─plyr::adply(...)
   3.     └─plyr::ldply(...)
   4.       └─plyr::llply(...)
   5.         └─progress$term()
   6.           ├─base::close(txt)
   7.           └─utils:::close.txtProgressBar(txt)
   8.             └─con$kill()
  ── Error (test_geocode.R:148:3): progress bar is hidden when appropriate ───────
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. ├─testthat::expect_output(geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL")) test_geocode.R:148:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(temp, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. └─prettymapr::geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL")
   11.   └─plyr::adply(...)
   12.     └─plyr::ldply(...)
   13.       └─plyr::llply(...)
   14.         ├─plyr:::loop_apply(n, do.ply)
   15.         └─(function (i) ...
   16.           └─prettymapr:::.fun(piece, ...)
   17.             └─prettymapr:::geocoder_partial(row$query)
   18.               └─prettymapr:::geocoder(...)
   19.                 └─plyr::adply(...)
   20.                   └─plyr::ldply(...)
   21.                     └─plyr::llply(...)
   22.                       ├─plyr:::loop_apply(n, do.ply)
   23.                       └─(function (i) ...
   24.                         └─prettymapr:::.fun(piece, ...)
  ── Error (test_geocode.R:148:3): progress bar is hidden when appropriate ───────
  Error: argument is of length zero
  Backtrace:
       █
    1. ├─testthat::expect_output(geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL")) test_geocode.R:148:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(temp, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. └─prettymapr::geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL")
   11.   └─plyr::adply(...)
   12.     └─plyr::ldply(...)
   13.       └─plyr::llply(...)
   14.         └─progress$term()
   15.           ├─base::close(txt)
   16.           └─utils:::close.txtProgressBar(txt)
   17.             └─con$kill()
  ── Error (test_geocode.R:161:3): setting the default source changes the source ──
  Error: $ operator is invalid for atomic vectors
  Backtrace:
       █
    1. ├─testthat::expect_equal(geocode("wolfville ns")$source, default_source) test_geocode.R:161:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─prettymapr::geocode("wolfville ns")
    5.   └─plyr::adply(...)
    6.     └─plyr::ldply(...)
    7.       └─plyr::llply(...)
    8.         ├─plyr:::loop_apply(n, do.ply)
    9.         └─(function (i) ...
   10.           └─prettymapr:::.fun(piece, ...)
   11.             └─prettymapr:::geocoder_partial(row$query)
   12.               └─prettymapr:::geocoder(...)
   13.                 └─plyr::adply(...)
   14.                   └─plyr::ldply(...)
   15.                     └─plyr::llply(...)
   16.                       ├─plyr:::loop_apply(n, do.ply)
   17.                       └─(function (i) ...
   18.                         └─prettymapr:::.fun(piece, ...)
  
  [ FAIL 11 | WARN 1 | SKIP 0 | PASS 59 ]
  Error: Test failures
  Execution halted