Running ‘testthat.R’ [37s/58s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(himach)
  > 
  > test_check("himach")
  
  [ FAIL 2 | WARN 1 | SKIP 7 | PASS 56 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (7)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_routes.R:91:3'): find_route works with subsonic option ─────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test_routes.R:91:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─himach (local) summarise_routes_for_test(...)
    4. │ ├─dplyr::mutate(...) at test_routes.R:14:2
    5. │ ├─dplyr::summarise(...)
    6. │ ├─dplyr::group_by(...)
    7. │ ├─sf::st_drop_geometry(...)
    8. │ ├─dplyr::mutate(...)
    9. │ └─dplyr::mutate(r, dplyr::across(c(gc, crow), st_length), gc_length = gc)
   10. ├─himach::find_route(...)
   11. │ └─himach::find_leg(...)
   12. │   └─himach:::find_leg_really(...)
   13. │     ├─... %>% ...
   14. │     └─himach:::pathToGC(...)
   15. │       ├─base::`[<-`(`*tmp*`, interm, "from_long", value = `<dbl>`)
   16. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, interm, "from_long", value = `<dbl>`)
   17. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │             ├─base::withCallingHandlers(...)
   20. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::mutate(...)
  ── Error ('test_routes.R:131:3'): Find multiple routes for multiple aircraft ───
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─utils::capture.output(...) at test_routes.R:131:2
    2. │ └─base::withVisible(...elt(i))
    3. ├─himach (local) summarise_routes_for_test(...)
    4. │ ├─dplyr::mutate(...) at test_routes.R:14:2
    5. │ ├─dplyr::summarise(...)
    6. │ ├─dplyr::group_by(...)
    7. │ ├─sf::st_drop_geometry(...)
    8. │ ├─dplyr::mutate(...)
    9. │ └─dplyr::mutate(r, dplyr::across(c(gc, crow), st_length), gc_length = gc)
   10. ├─himach::find_routes(...)
   11. │ ├─purrr::reduce(...)
   12. │ │ └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   13. │ │   └─purrr:::reduce_init(.x, .init, left = left, error_call = .purrr_error_call)
   14. │ │     └─rlang::is_empty(x)
   15. │ └─base::lapply(...)
   16. │   └─himach (local) FUN(X[[i]], ...)
   17. │     └─himach::find_route(ac, ap2, ap_loc = airports, ...)
   18. │       └─himach::find_leg(...)
   19. │         └─himach:::find_leg_really(...)
   20. │           ├─... %>% ...
   21. │           └─himach:::pathToGC(...)
   22. │             ├─base::`[<-`(`*tmp*`, interm, "from_long", value = `<dbl>`)
   23. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, interm, "from_long", value = `<dbl>`)
   24. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   26. │                   ├─base::withCallingHandlers(...)
   27. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   28. └─dplyr::mutate(...)
  
  [ FAIL 2 | WARN 1 | SKIP 7 | PASS 56 ]
  Error: Test failures
  Execution halted