Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(riskclustr)
  > 
  > test_check("riskclustr")
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 26 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-optimal_kmeans_d.R:49:3'): optimal_kmeans_d prints message if no seed is set ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-optimal_kmeans_d.R:49:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─riskclustr::optimal_kmeans_d(...)
    7.   └─base::lapply(...)
    8.     └─riskclustr (local) FUN(X[[i]], ...)
    9.       ├─dplyr::right_join(...)
   10.       └─dplyr:::right_join.data.frame(...)
   11.         └─dplyr:::join_mutate(...)
   12.           ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14.             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15.               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.                 ├─base::withCallingHandlers(...)
   17.                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-optimal_kmeans_d.R:65:3'): optimal_kmeans_d returns expected optimal_d value ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimal_kmeans_d.R:65:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─riskclustr::optimal_kmeans_d(...)
    5.   └─base::lapply(...)
    6.     └─riskclustr (local) FUN(X[[i]], ...)
    7.       ├─dplyr::right_join(...)
    8.       └─dplyr:::right_join.data.frame(...)
    9.         └─dplyr:::join_mutate(...)
   10.           ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.           └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.                 ├─base::withCallingHandlers(...)
   15.                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 26 ]
  Error: Test failures
  Execution halted