Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [2s/4s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(lactater)
  > 
  > test_check("lactater")
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 0 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-bslnplus.R:2:3'): bslnplus works ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-bslnplus.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-dmax.R:2:3'): dmax works ───────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-dmax.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-lactate_threshold.R:2:3'): overall function works ──────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-lactate_threshold.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-loglog.R:2:3'): loglog works ───────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-loglog.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ltp.R:2:3'): ltp works ─────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-ltp.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ltratio.R:2:3'): ltratio works ─────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-ltratio.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-obla.R:2:3'): obla works ───────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─lactater::lactate_threshold(...) at test-obla.R:2:2
   2. │ └─data_prepared %>% ...
   3. └─lactater:::prepare_fit(...)
   4.   ├─base::`[<-`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   5.   └─tibble:::`[<-.tbl_df`(`*tmp*`, .data$intensity == 0, , value = `<tibble[,3]>`)
   6.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   7.       └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 0 ]
  Error: Test failures
  Execution halted