Running ‘testthat.R’ [16s/21s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(gtfsrouter)
  > 
  > test_check("gtfsrouter")
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/junk.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/routes.txt (deflated 79%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/trips.txt (deflated 94%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stop_times.txt (deflated 90%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stops.txt (deflated 82%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/calendar.txt (deflated 91%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/routes.txt (deflated 79%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/trips.txt (deflated 94%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stop_times.txt (deflated 90%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stops.txt (deflated 82%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/transfers.txt (deflated 94%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/calendar.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/routes.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/trips.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stop_times.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/stops.txt (stored 0%)
    adding: tmp/RtmpgubHgw/working_dir/RtmpxAsi8r/transfers.txt (stored 0%)
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  • empty test (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-route.R:82:15): route ───────────────────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-route.R:82:14
    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. └─gtfsrouter::gtfs_route(gt, from = from, to = to, start_time = start_time)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-route.R:123:15): route without timetable ────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-route.R:123:14
    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. └─gtfsrouter::gtfs_route(...)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-route.R:152:16): route_pattern ──────────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_null(gtfs_route(gt2, from = from, to = to, start_time = start_time)) test-route.R:152:15
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─gtfsrouter::gtfs_route(gt2, from = from, to = to, start_time = start_time)
    5.   └─gtfsrouter:::from_to_to_stations(...)
    6.     └─base::lapply(...)
    7.       └─gtfsrouter:::FUN(X[[i]], ...)
    8.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
    9.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   10.           └─geodist::geodist(xy, measure = "haversine")
   11.             └─geodist:::convert_to_matrix(x)
   12.               └─base::cbind(...)
  ── Error (test-route.R:176:16): earliest_arrival ───────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-route.R:176:15
    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. └─gtfsrouter::gtfs_route(...)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-route.R:194:16): max_transfers ──────────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-route.R:194:15
    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. └─gtfsrouter::gtfs_route(...)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-route.R:211:16): multiple routes ────────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-route.R:211:15
    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. └─gtfsrouter::gtfs_route(...)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-time-formats.R:21:15): convert-time ─────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test-time-formats.R:21:14
    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. └─gtfsrouter::gtfs_route(...)
   10.   └─gtfsrouter:::from_to_to_stations(...)
   11.     └─base::lapply(...)
   12.       └─gtfsrouter:::FUN(X[[i]], ...)
   13.         ├─base::unique(station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed))
   14.         └─gtfsrouter:::station_name_to_ids(i, gtfs, from_to_are_ids, grep_fixed)
   15.           └─geodist::geodist(xy, measure = "haversine")
   16.             └─geodist:::convert_to_matrix(x)
   17.               └─base::cbind(...)
  ── Error (test-transfers.R:11:15): transfers works ─────────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
       █
    1. ├─testthat::expect_message(...) test-transfers.R:11:14
    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. └─gtfsrouter::gtfs_transfer_table(g, d_limit = 200, min_transfer_time = 0)
    7.   └─gtfsrouter:::get_transfer_list(gtfs, stop_service, d_limit)
    8.     └─geodist::geodist(stops[, c("stop_lon", "stop_lat")], measure = "haversine")
    9.       └─geodist:::convert_to_matrix(x)
   10.         └─base::cbind(...)
  ── Error (test-traveltimes.R:14:15): gtfs_traveltimes ──────────────────────────
  Error in `cbind(as.numeric(obj[, xy_cols[1], drop = TRUE]), as.numeric(obj[, 
      xy_cols[2], drop = TRUE]))`: 'list' object cannot be coerced to type 'double'
  Backtrace:
      █
   1. └─gtfsrouter::gtfs_traveltimes(g2, from, start_times) test-traveltimes.R:14:14
   2.   └─gtfsrouter:::station_name_to_ids(from, gtfs_cp, from_is_id, grep_fixed)
   3.     └─geodist::geodist(xy, measure = "haversine")
   4.       └─geodist:::convert_to_matrix(x)
   5.         └─base::cbind(...)
  
  [ FAIL 9 | WARN 0 | SKIP 2 | PASS 110 ]
  Error: Test failures
  Execution halted