Running 'manual_tests.R' [0s]
  Running 'testthat.R' [14s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(googleway)
  > 
  > test_check("googleway")
  -- 1. Error: result_type is valid (@test-google_reverse_geocode.R#37)  ---------
  There was an error downloading results. Please manually check the following URL is valid by entering it into a browswer. If valid, please file a bug report citing this URL (note: your API key has been removed, so you will need to add that back in) 
  
  https://maps.googleapis.com/maps/api/geocode/json?&latlng=-37.81659,144.9841&result_type=street_address%7Croute%7Cintersection&key=
  1: expect_true(google_reverse_geocode(location = c(-37.81659, 144.9841), result_type = c("street_address", 
         "route", "intersection"), key = "abc")$error_message == "The provided API key is invalid.") at testthat/test-google_reverse_geocode.R:37
  2: quasi_label(enquo(object), label, arg = "object")
  3: eval_bare(get_expr(quo), get_env(quo))
  4: google_reverse_geocode(location = c(-37.81659, 144.9841), result_type = c("street_address", 
         "route", "intersection"), key = "abc")
  5: downloadData(map_url, simplify, curl_proxy)
  6: tryCatch({
         out <- readLines(con)
     }, error = function(cond) {
         stop("There was an error downloading results. Please manually check the following URL is valid by entering it into a browswer. If valid, please file a bug report citing this URL (note: your API key has been removed, so you will need to add that back in) \n\n", 
             gsub("key=.*", "", map_url), "key=", sep = "")
     }, finally = {
         close(con)
     })
  7: tryCatchList(expr, classes, parentenv, handlers)
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  10: stop("There was an error downloading results. Please manually check the following URL is valid by entering it into a browswer. If valid, please file a bug report citing this URL (note: your API key has been removed, so you will need to add that back in) \n\n", 
         gsub("key=.*", "", map_url), "key=", sep = "")
  
  == testthat results  ===========================================================
  [ OK: 572 | SKIPPED: 7 | WARNINGS: 0 | FAILED: 1 ]
  1. Error: result_type is valid (@test-google_reverse_geocode.R#37) 
  
  Error: testthat unit tests failed
  Execution halted