Running ‘manual_tests.R’ [0s/0s]
  Running ‘testthat.R’ [8s/41s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(googleway)
  > 
  > test_check("googleway")
  ── 1. Error: warning when both arrival and departure times supplied (@test-googl
  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/distancematrix/json?&origins=Melbourne+Airport,+Australia&destinations=Portsea,+Melbourne,+Australia&departure_time=1537812322&alternatives=false&units=metric&mode=driving&key=
  1: expect_warning(google_distance(origins = "Melbourne Airport, Australia", destinations = "Portsea, Melbourne, Australia", 
         departure_time = Sys.time() + (24 * 60 * 60), arrival_time = Sys.time() + (24 * 
             60 * 60), key = "abc"), "you have supplied both an arrival_time and a departure_time - only one is allowed. The arrival_time will be ignored") at testthat/test-google_distances.R:109
  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_distance(origins = "Melbourne Airport, Australia", destinations = "Portsea, Melbourne, Australia", 
         departure_time = Sys.time() + (24 * 60 * 60), arrival_time = Sys.time() + (24 * 
             60 * 60), key = "abc")
  7: directions_data(base_url = "https://maps.googleapis.com/maps/api/distancematrix/json?", 
         information_type = "distance", origin = origins, destination = destinations, 
         mode, departure_time, arrival_time, waypoints = NULL, optimise_waypoints = FALSE, 
         alternatives = FALSE, avoid, units, traffic_model, transit_mode, transit_routing_preference, 
         language, region = NULL, key, simplify, curl_proxy)
  8: downloadData(map_url, simplify, curl_proxy)
  9: 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)
     })
  10: tryCatchList(expr, classes, parentenv, handlers)
  11: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  12: value[[3L]](cond)
  13: 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 FAILED: 1
  1. Error: warning when both arrival and departure times supplied (@test-google_distances.R#109) 
  
  Error: testthat unit tests failed
  Execution halted