Running ‘test-all.R’ [3s/10s]
Running the tests in ‘tests/test-all.R’ failed.
Complete output:
  > 
  > library(testthat)
  > 
  > test_check("prettymapr")
  Loading required package: prettymapr
  
  |                                                    |  0%                       ----------- FAILURE REPORT -------------- 
   --- failure: the condition has length > 1 ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  prettymapr
   --- call from context --- 
  FUN(X[[i]], ...)
   --- call from argument --- 
  if (is.na(x)) {
      message("Coercing an NA query parameter to \"\"")
      ""
  } else {
      as.character(x)
  }
   --- R stacktrace ---
  where 1: FUN(X[[i]], ...)
  where 2: lapply(searchparams, function(x) {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  })
  where 3: restquery(endpoint, q = location, key = key, ..., .quiet = quiet, 
      .parser = parse_pickpoint, .cache = cache)
  where 4: doTryCatch(return(expr), name, parentenv, handler)
  where 5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 6: tryCatchList(expr, classes, parentenv, handlers)
  where 7: tryCatch(expr, error = function(e) {
      call <- conditionCall(e)
      if (!is.null(call)) {
          if (identical(call[[1L]], quote(doTryCatch))) 
              call <- sys.call(-4L)
          dcall <- deparse(call, nlines = 1L)
          prefix <- paste("Error in", dcall, ": ")
          LONG <- 75L
          sm <- strsplit(conditionMessage(e), "\n")[[1L]]
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
          if (is.na(w)) 
              w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                  type = "b")
          if (w > LONG) 
              prefix <- paste0(prefix, "\n  ")
      }
      else prefix <- "Error : "
      msg <- paste0(prefix, conditionMessage(e), "\n")
      .Internal(seterrmessage(msg[1L]))
      if (!silent && isTRUE(getOption("show.error.messages"))) {
          cat(msg, file = outFile)
          .Internal(printDeferredWarnings())
      }
      invisible(structure(msg, class = "try-error", condition = e))
  })
  where 8: try(restquery(endpoint, q = location, key = key, ..., .quiet = quiet, 
      .parser = parse_pickpoint, .cache = cache), silent = TRUE)
  where 9: geocoder(loc, output = output, limit = limit, key = key, quiet = quiet, 
      cache = cache, ...)
  where 10: geocoder_partial(row$query)
  where 11: .fun(piece, ...)
  where 12: (function (i) 
  {
      piece <- pieces[[i]]
      if (.inform) {
          res <- try(.fun(piece, ...))
          if (inherits(res, "try-error")) {
              piece <- paste(utils::capture.output(print(piece)), 
                  collapse = "\n")
              stop("with piece ", i, ": \n", piece, call. = FALSE)
          }
      }
      else {
          res <- .fun(piece, ...)
      }
      progress$step()
      res
  })(1L)
  where 13: loop_apply(n, do.ply)
  where 14: llply(.data = .data, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts)
  where 15: ldply(.data = pieces, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts, 
      .id = .id)
  where 16: plyr::adply(df, 1, function(row) geocoder_partial(row$query), 
      .progress = progress)
  where 17 at test_geocode.R#75: geocode(cities, output = "data.frame", source = "pickpoint")
  where 18: eval(code, test_env)
  where 19: eval(code, test_env)
  where 20: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 21: doTryCatch(return(expr), name, parentenv, handler)
  where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 24: doTryCatch(return(expr), name, parentenv, handler)
  where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 26: tryCatchList(expr, classes, parentenv, handlers)
  where 27: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 28: test_code(desc, code, env = parent.frame(), reporter = reporter)
  where 29 at test_geocode.R#69: test_that("output is vectorized with correct lengths", {
      for (source in c("pickpoint", "google", "dsk")) {
          cities <- c("wolfville, ns", "halifax, ns", "calgary, ab", 
              "auckland, nz", "middlebury, vt", "ottawa, on")
          df <- geocode(cities, output = "data.frame", source = "pickpoint")
          expect_equal(length(cities), nrow(df))
          alist <- geocode(cities, output = "list", source = "pickpoint")
          expect_equal(length(cities), length(alist))
      }
  })
  where 30: eval(code, test_env)
  where 31: eval(code, test_env)
  where 32: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 33: doTryCatch(return(expr), name, parentenv, handler)
  where 34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 35: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 36: doTryCatch(return(expr), name, parentenv, handler)
  where 37: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 38: tryCatchList(expr, classes, parentenv, handlers)
  where 39: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 40: test_code(NULL, exprs, env)
  where 41: source_file(path, child_env(env), wrap = wrap)
  where 42: FUN(X[[i]], ...)
  where 43: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  where 44: doTryCatch(return(expr), name, parentenv, handler)
  where 45: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 46: tryCatchList(expr, classes, parentenv, handlers)
  where 47: tryCatch(code, testthat_abort_reporter = function(cnd) {
      cat(conditionMessage(cnd), "\n")
      NULL
  })
  where 48: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
      env = env, wrap = wrap))
  where 49: test_files(test_dir = test_dir, test_package = test_package, 
      test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 
      env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package)
  where 50: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
      reporter = reporter, load_helpers = load_helpers, env = env, 
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package, parallel = parallel)
  where 51: test_dir("testthat", package = package, reporter = reporter, 
      ..., load_package = "installed")
  where 52: test_check("prettymapr")
  
   --- value of length: 6 type: logical ---
  [1] FALSE FALSE FALSE FALSE FALSE FALSE
   --- function from context --- 
  function (x) 
  {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  }
  <bytecode: 0x561c81faf538>
  <environment: 0x561c82112c30>
   --- function search by body ---
   ----------- END OF FAILURE REPORT -------------- 
  
  |=====                                               | 10% ~20 s remaining      Killed after 2 s 
  
  |                                                    |  0%                       ----------- FAILURE REPORT -------------- 
   --- failure: the condition has length > 1 ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  prettymapr
   --- call from context --- 
  FUN(X[[i]], ...)
   --- call from argument --- 
  if (is.na(x)) {
      message("Coercing an NA query parameter to \"\"")
      ""
  } else {
      as.character(x)
  }
   --- R stacktrace ---
  where 1: FUN(X[[i]], ...)
  where 2: lapply(searchparams, function(x) {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  })
  where 3: restquery(endpoint, sensor = sensor, address = location, ..., 
      .quiet = quiet, .parser = rjson::fromJSON, .cache = cache)
  where 4: doTryCatch(return(expr), name, parentenv, handler)
  where 5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 6: tryCatchList(expr, classes, parentenv, handlers)
  where 7: tryCatch(expr, error = function(e) {
      call <- conditionCall(e)
      if (!is.null(call)) {
          if (identical(call[[1L]], quote(doTryCatch))) 
              call <- sys.call(-4L)
          dcall <- deparse(call, nlines = 1L)
          prefix <- paste("Error in", dcall, ": ")
          LONG <- 75L
          sm <- strsplit(conditionMessage(e), "\n")[[1L]]
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
          if (is.na(w)) 
              w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                  type = "b")
          if (w > LONG) 
              prefix <- paste0(prefix, "\n  ")
      }
      else prefix <- "Error : "
      msg <- paste0(prefix, conditionMessage(e), "\n")
      .Internal(seterrmessage(msg[1L]))
      if (!silent && isTRUE(getOption("show.error.messages"))) {
          cat(msg, file = outFile)
          .Internal(printDeferredWarnings())
      }
      invisible(structure(msg, class = "try-error", condition = e))
  })
  where 8: try(restquery(endpoint, sensor = sensor, address = location, 
      ..., .quiet = quiet, .parser = rjson::fromJSON, .cache = cache), 
      silent = TRUE)
  where 9: geocoder(loc, output = output, limit = limit, key = key, quiet = quiet, 
      cache = cache, ...)
  where 10: geocoder_partial(row$query)
  where 11: .fun(piece, ...)
  where 12: (function (i) 
  {
      piece <- pieces[[i]]
      if (.inform) {
          res <- try(.fun(piece, ...))
          if (inherits(res, "try-error")) {
              piece <- paste(utils::capture.output(print(piece)), 
                  collapse = "\n")
              stop("with piece ", i, ": \n", piece, call. = FALSE)
          }
      }
      else {
          res <- .fun(piece, ...)
      }
      progress$step()
      res
  })(1L)
  where 13: loop_apply(n, do.ply)
  where 14: llply(.data = .data, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts)
  where 15: ldply(.data = pieces, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts, 
      .id = .id)
  where 16: plyr::adply(df, 1, function(row) geocoder_partial(row$query), 
      .progress = progress)
  where 17 at test_geocode.R#136: geocode(cities)
  where 18: eval(code, test_env)
  where 19: eval(code, test_env)
  where 20: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 21: doTryCatch(return(expr), name, parentenv, handler)
  where 22: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 23: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 24: doTryCatch(return(expr), name, parentenv, handler)
  where 25: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 26: tryCatchList(expr, classes, parentenv, handlers)
  where 27: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 28: test_code(desc, code, env = parent.frame(), reporter = reporter)
  where 29 at test_geocode.R#128: test_that("vectors that contain zero-length input don't screw up the query / source columns", 
      {
          cities <- c("wolfville, ns", "halifax, ns", "calgary, ab", 
              "auckland, nz", "middlebury, vt", "ottawa, on")
          df1 <- geocode(cities)
          list1 <- geocode(cities, output = "list")
          cities[2] <- ""
          df2 <- geocode(cities)
          list2 <- geocode(cities, output = "list")
          expect_identical(nrow(df1), nrow(df2))
          identical(df1[-2, ], df2[-2, ])
      })
  where 30: eval(code, test_env)
  where 31: eval(code, test_env)
  where 32: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 33: doTryCatch(return(expr), name, parentenv, handler)
  where 34: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 35: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 36: doTryCatch(return(expr), name, parentenv, handler)
  where 37: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 38: tryCatchList(expr, classes, parentenv, handlers)
  where 39: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 40: test_code(NULL, exprs, env)
  where 41: source_file(path, child_env(env), wrap = wrap)
  where 42: FUN(X[[i]], ...)
  where 43: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  where 44: doTryCatch(return(expr), name, parentenv, handler)
  where 45: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 46: tryCatchList(expr, classes, parentenv, handlers)
  where 47: tryCatch(code, testthat_abort_reporter = function(cnd) {
      cat(conditionMessage(cnd), "\n")
      NULL
  })
  where 48: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
      env = env, wrap = wrap))
  where 49: test_files(test_dir = test_dir, test_package = test_package, 
      test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 
      env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package)
  where 50: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
      reporter = reporter, load_helpers = load_helpers, env = env, 
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package, parallel = parallel)
  where 51: test_dir("testthat", package = package, reporter = reporter, 
      ..., load_package = "installed")
  where 52: test_check("prettymapr")
  
   --- value of length: 6 type: logical ---
  [1] FALSE FALSE FALSE FALSE FALSE FALSE
   --- function from context --- 
  function (x) 
  {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  }
  <bytecode: 0x561c81faf538>
  <environment: 0x561c87ac8f60>
   --- function search by body ---
   ----------- END OF FAILURE REPORT -------------- 
  
  |=====                                               | 10% ~0 s remaining       Killed after 0 s 
   ----------- FAILURE REPORT -------------- 
   --- failure: the condition has length > 1 ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  prettymapr
   --- call from context --- 
  FUN(X[[i]], ...)
   --- call from argument --- 
  if (is.na(x)) {
      message("Coercing an NA query parameter to \"\"")
      ""
  } else {
      as.character(x)
  }
   --- R stacktrace ---
  where 1: FUN(X[[i]], ...)
  where 2: lapply(searchparams, function(x) {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  })
  where 3: restquery(endpoint, sensor = sensor, address = location, ..., 
      .quiet = quiet, .parser = rjson::fromJSON, .cache = cache)
  where 4: doTryCatch(return(expr), name, parentenv, handler)
  where 5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 6: tryCatchList(expr, classes, parentenv, handlers)
  where 7: tryCatch(expr, error = function(e) {
      call <- conditionCall(e)
      if (!is.null(call)) {
          if (identical(call[[1L]], quote(doTryCatch))) 
              call <- sys.call(-4L)
          dcall <- deparse(call, nlines = 1L)
          prefix <- paste("Error in", dcall, ": ")
          LONG <- 75L
          sm <- strsplit(conditionMessage(e), "\n")[[1L]]
          w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w")
          if (is.na(w)) 
              w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], 
                  type = "b")
          if (w > LONG) 
              prefix <- paste0(prefix, "\n  ")
      }
      else prefix <- "Error : "
      msg <- paste0(prefix, conditionMessage(e), "\n")
      .Internal(seterrmessage(msg[1L]))
      if (!silent && isTRUE(getOption("show.error.messages"))) {
          cat(msg, file = outFile)
          .Internal(printDeferredWarnings())
      }
      invisible(structure(msg, class = "try-error", condition = e))
  })
  where 8: try(restquery(endpoint, sensor = sensor, address = location, 
      ..., .quiet = quiet, .parser = rjson::fromJSON, .cache = cache), 
      silent = TRUE)
  where 9: geocoder(loc, output = output, limit = limit, key = key, quiet = quiet, 
      cache = cache, ...)
  where 10: geocoder_partial(row$query)
  where 11: .fun(piece, ...)
  where 12: (function (i) 
  {
      piece <- pieces[[i]]
      if (.inform) {
          res <- try(.fun(piece, ...))
          if (inherits(res, "try-error")) {
              piece <- paste(utils::capture.output(print(piece)), 
                  collapse = "\n")
              stop("with piece ", i, ": \n", piece, call. = FALSE)
          }
      }
      else {
          res <- .fun(piece, ...)
      }
      progress$step()
      res
  })(1L)
  where 13: loop_apply(n, do.ply)
  where 14: llply(.data = .data, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts)
  where 15: ldply(.data = pieces, .fun = .fun, ..., .progress = .progress, 
      .inform = .inform, .parallel = .parallel, .paropts = .paropts, 
      .id = .id)
  where 16: plyr::adply(df, 1, function(row) geocoder_partial(row$query), 
      .progress = progress)
  where 17: geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL")
  where 18: eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  where 19: withVisible(code)
  where 20: force(code)
  where 21: withr::with_output_sink(temp, withVisible(code))
  where 22: eval_with_output(code, print = print, width = width)
  where 23: capture_output_lines(code, print, width = width)
  where 24: .capture(act$val <- eval_bare(quo_get_expr(.quo), quo_get_env(.quo)), 
      ...)
  where 25: quasi_capture(enquo(object), label, capture_output, width = width)
  where 26 at test_geocode.R#148: expect_output(geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL"))
  where 27: eval(code, test_env)
  where 28: eval(code, test_env)
  where 29: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 30: doTryCatch(return(expr), name, parentenv, handler)
  where 31: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 32: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 33: doTryCatch(return(expr), name, parentenv, handler)
  where 34: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 35: tryCatchList(expr, classes, parentenv, handlers)
  where 36: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 37: test_code(desc, code, env = parent.frame(), reporter = reporter)
  where 38 at test_geocode.R#146: test_that("progress bar is hidden when appropriate", {
      cities <- c("wolfville, ns", "halifax, ns")
      expect_output(geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL"))
      expect_silent(geocode(cities, key = "yxsN6E8EYYHFF_xsa_uL", 
          progress = "none"))
      expect_silent(geocode(cities[1], key = "yxsN6E8EYYHFF_xsa_uL"))
  })
  where 39: eval(code, test_env)
  where 40: eval(code, test_env)
  where 41: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 42: doTryCatch(return(expr), name, parentenv, handler)
  where 43: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 44: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 45: doTryCatch(return(expr), name, parentenv, handler)
  where 46: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 47: tryCatchList(expr, classes, parentenv, handlers)
  where 48: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 49: test_code(NULL, exprs, env)
  where 50: source_file(path, child_env(env), wrap = wrap)
  where 51: FUN(X[[i]], ...)
  where 52: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  where 53: doTryCatch(return(expr), name, parentenv, handler)
  where 54: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 55: tryCatchList(expr, classes, parentenv, handlers)
  where 56: tryCatch(code, testthat_abort_reporter = function(cnd) {
      cat(conditionMessage(cnd), "\n")
      NULL
  })
  where 57: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
      env = env, wrap = wrap))
  where 58: test_files(test_dir = test_dir, test_package = test_package, 
      test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 
      env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package)
  where 59: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
      reporter = reporter, load_helpers = load_helpers, env = env, 
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package, parallel = parallel)
  where 60: test_dir("testthat", package = package, reporter = reporter, 
      ..., load_package = "installed")
  where 61: test_check("prettymapr")
  
   --- value of length: 2 type: logical ---
  [1] FALSE FALSE
   --- function from context --- 
  function (x) 
  {
      if (is.null(x)) {
          NULL
      }
      else if (is.na(x)) {
          message("Coercing an NA query parameter to \"\"")
          ""
      }
      else {
          as.character(x)
      }
  }
  <bytecode: 0x561c81faf538>
  <environment: 0x561c8a3e4ae0>
   --- function search by body ---
   ----------- END OF FAILURE REPORT -------------- 
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_geocode.R:8:5): geocode output is consistent ────────────────────
  Error in `data[[row$rank]]`: attempt to select less than one element in get1index
  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 in `data[[row$rank]]`: attempt to select less than one element in get1index
  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 in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  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)
  ── Error (test_geocode.R:85:3): errors in the geocode function don't stop execution ──
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  Backtrace:
       █
    1. ├─testthat::expect_silent(geocode("something", source = "error_source")) test_geocode.R:85:2
    2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
    3. │   ├─testthat:::.capture(...)
    4. │   │ ├─withr::with_output_sink(...)
    5. │   │ │ └─base::force(code)
    6. │   │ ├─base::withCallingHandlers(...)
    7. │   │ └─base::withVisible(code)
    8. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    9. └─prettymapr::geocode("something", source = "error_source")
   10.   └─plyr::adply(...)
   11.     └─plyr::ldply(...)
   12.       └─plyr::llply(...)
   13.         ├─plyr:::loop_apply(n, do.ply)
   14.         └─(function (i) ...
   15.           └─prettymapr:::.fun(piece, ...)
   16.             └─prettymapr:::geocoder_partial(row$query)
  ── Error (test_geocode.R:90:3): invalid pickpoint API key results in correct error message ──
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  Backtrace:
      █
   1. └─prettymapr::geocode("wolfville ns", source = "pickpoint", key = "notavalidkey") test_geocode.R:90: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)
  ── Error (test_geocode.R:101:3): invalid parameters are detected ───────────────
  Error in `data[[row$rank]]`: attempt to select less than one element in get1index
  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 in `data[[row$rank]]`: attempt to select less than one element in get1index
  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:119:3): default source can be set from options ────────
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  Backtrace:
      █
   1. └─prettymapr::geocode("wolfville ns") test_geocode.R:119: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)
  ── Error (test_geocode.R:125:3): non 200 status codes throw warning when quiet = FALSE ──
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  Backtrace:
       █
    1. ├─testthat::expect_warning(...) test_geocode.R:125:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─prettymapr::geocode("something", key = "not a key", quiet = FALSE)
    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)
  ── Error (test_geocode.R:136:3): vectors that contain zero-length input don't screw up the query / source columns ──
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  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)
  ── Error (test_geocode.R:148:3): progress bar is hidden when appropriate ───────
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  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)
  ── Failure (test_geocode.R:160:3): setting the default source changes the source ──
  `default_source` not equal to "pickpoint".
  1/1 mismatches
  x[1]: "google"
  y[1]: "pickpoint"
  ── Error (test_geocode.R:161:3): setting the default source changes the source ──
  Error in `if (is.na(loc) || (nchar(loc) <= 3)) return(result_empty(output))`: missing value where TRUE/FALSE needed
  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)
  
  [ FAIL 13 | WARN 20 | SKIP 0 | PASS 53 ]
  Error: Test failures
  Execution halted