Running 'manual_tests.R' [1s]
  Running 'testthat.R' [13s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(googleway)
  > 
  > test_check("googleway")
  -- 1. Error: radar options throws errors (@test-google_places.R#150)  ----------
  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/place/radarsearch/json?&location=-37,145&radius=1&keyword=there&key=
  1: expect_warning(google_places(radar = T, key = "abc", search_string = "here", location = c(-37, 
         145), radius = 1, keyword = "there")) at testthat/test-google_places.R:150
  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: google_places(radar = T, key = "abc", search_string = "here", location = c(-37, 145), 
         radius = 1, keyword = "there")
  7: downloadData(map_url, simplify, curl_proxy)
  8: 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)
     })
  9: tryCatchList(expr, classes, parentenv, handlers)
  10: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  11: value[[3L]](cond)
  12: 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: 564 SKIPPED: 7 FAILED: 1
  1. Error: radar options throws errors (@test-google_places.R#150) 
  
  Error: testthat unit tests failed
  Execution halted