Running ‘testthat.R’ [2s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(distances)
  > 
  > test_check("distances")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_distance_matrix.R:27:1): (code run outside of `test_that()`) ────
  <error/condition>
  Error in `distances(data = my_data_points)`: `data` must be numeric.
  Backtrace:
      █
   1. └─distances::distances(my_data_points) test_distance_matrix.R:27:0
   2.   └─distances:::coerce_distance_data(data, id_variable, dist_variables)
   3.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  ── Error (test_distances.R:125:3): `distances` accepts data.frame input. ───────
  <error/condition>
  Error in `distances(data = test_data_df1)`: `data` must be numeric.
  Backtrace:
      █
   1. ├─testthat::expect_is(distances(test_data_df1), "distances") test_distances.R:125:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─distances::distances(test_data_df1)
   5.   └─distances:::coerce_distance_data(data, id_variable, dist_variables)
   6.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  ── Error (test_distances.R:158:3): `distances` accepts 1D data.frame input. ────
  <error/condition>
  Error in `distances(data = test_data_df1_single)`: `data` must contain at least two data points.
  Backtrace:
      █
   1. ├─testthat::expect_is(distances(test_data_df1_single), "distances") test_distances.R:158:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─distances::distances(test_data_df1_single)
   5.   └─distances:::coerce_distance_data(data, id_variable, dist_variables)
   6.     └─distances:::new_error("`", match.call()$data, "` must contain at least two data points.")
  ── Error (test_distances.R:190:3): `distances` accepts factor data.frame input. ──
  <error/condition>
  Error in `distances(data = test_data_factors)`: `data` must be numeric.
  Backtrace:
       █
    1. ├─testthat::expect_warning(...) test_distances.R:190:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat:::.capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─testthat::expect_is(distances(test_data_factors), "distances")
    7. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    8. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    9. └─distances::distances(test_data_factors)
   10.   └─distances:::coerce_distance_data(data, id_variable, dist_variables)
   11.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  ── Error (test_input_check.R:153:3): `coerce_distance_data` checks input. ──────
  <error/condition>
  Error in `t_coerce_distance_data(t_data = data.frame(matrix(1:10, nrow = 5)))`: `t_data` must be numeric.
  Backtrace:
       █
    1. ├─testthat::expect_silent(...) test_input_check.R:153:2
    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. └─distances:::t_coerce_distance_data(...)
   10.   └─distances:::coerce_distance_data(t_data, t_id_variable, t_dist_variables) test_input_check.R:146:2
   11.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  ── Error (test_input_check.R:224:3): `coerce_distance_data` coerces correctly. ──
  <error/condition>
  Error in `t_coerce_distance_data(t_data = t_dist_test1)`: `t_data` must be numeric.
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test_input_check.R:224:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─distances:::t_coerce_distance_data(t_data = t_dist_test1)
   5.   └─distances:::coerce_distance_data(t_data, t_id_variable, t_dist_variables) test_input_check.R:146:2
   6.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  ── Error (test_search.R:27:1): (code run outside of `test_that()`) ─────────────
  <error/condition>
  Error in `distances(data = my_data_points)`: `data` must be numeric.
  Backtrace:
      █
   1. └─distances::distances(my_data_points) test_search.R:27:0
   2.   └─distances:::coerce_distance_data(data, id_variable, dist_variables)
   3.     └─distances:::new_error("`", match.call()$data, "` must be numeric.")
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 297 ]
  Error: Test failures
  Execution halted