Running ‘testthat.R’ [58s/89s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(finalfit)
  > 
  > test_check("finalfit")
  [ FAIL 3 | WARN 20 | SKIP 0 | PASS 128 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_all_in_one.R:276:2'): finalfit_permute gives a list ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:276:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─finalfit::ff_permute(...)
    5. │ └─... %>% ...
    6. ├─finalfit::dependent_label(., .data = .data, dependent = dependent)
    7. ├─dplyr::select(., -fit_id, -index)
    8. ├─dplyr::mutate_all(., ~ifelse(is.na(.), "-", .))
    9. │ └─dplyr:::check_grouped(.tbl, "mutate", "all", alt = TRUE)
   10. │   └─dplyr::is_grouped_df(tbl)
   11. ├─dplyr::left_join(uni, ., by = "fit_id")
   12. ├─dplyr:::left_join.data.frame(uni, ., by = "fit_id")
   13. │ └─dplyr::auto_copy(x, y, copy = copy)
   14. │   ├─dplyr::same_src(x, y)
   15. │   └─dplyr:::same_src.data.frame(x, y)
   16. │     └─base::is.data.frame(y)
   17. └─purrr::reduce(., dplyr::full_join, by = "fit_id")
   18.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   19.     ├─dplyr (local) fn(out, elt, ...)
   20.     └─dplyr:::full_join.data.frame(out, elt, ...)
   21.       └─dplyr:::join_mutate(...)
   22.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_all_in_one.R:287:2'): finalfit_permute gives a list ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:287:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─finalfit::ff_permute(...)
    5. │ └─... %>% ...
    6. ├─finalfit::dependent_label(., .data = .data, dependent = dependent)
    7. ├─dplyr::select(., -fit_id, -index)
    8. ├─dplyr::mutate_all(., ~ifelse(is.na(.), "-", .))
    9. │ └─dplyr:::check_grouped(.tbl, "mutate", "all", alt = TRUE)
   10. │   └─dplyr::is_grouped_df(tbl)
   11. ├─dplyr::left_join(uni, ., by = "fit_id")
   12. ├─dplyr:::left_join.data.frame(uni, ., by = "fit_id")
   13. │ └─dplyr::auto_copy(x, y, copy = copy)
   14. │   ├─dplyr::same_src(x, y)
   15. │   └─dplyr:::same_src.data.frame(x, y)
   16. │     └─base::is.data.frame(y)
   17. └─purrr::reduce(., dplyr::full_join, by = "fit_id")
   18.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   19.     ├─dplyr (local) fn(out, elt, ...)
   20.     └─dplyr:::full_join.data.frame(out, elt, ...)
   21.       └─dplyr:::join_mutate(...)
   22.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  ── Error ('test_all_in_one.R:311:2'): finalfit_permute gives a list ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test_all_in_one.R:311:8
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─finalfit::ff_permute(...)
    5. │ └─... %>% ...
    6. ├─finalfit::dependent_label(., .data = .data, dependent = dependent)
    7. ├─dplyr::select(., -fit_id, -index)
    8. ├─dplyr::mutate_all(., ~ifelse(is.na(.), "-", .))
    9. │ └─dplyr:::check_grouped(.tbl, "mutate", "all", alt = TRUE)
   10. │   └─dplyr::is_grouped_df(tbl)
   11. ├─dplyr::left_join(uni, ., by = "fit_id")
   12. ├─dplyr:::left_join.data.frame(uni, ., by = "fit_id")
   13. │ └─dplyr::auto_copy(x, y, copy = copy)
   14. │   ├─dplyr::same_src(x, y)
   15. │   └─dplyr:::same_src.data.frame(x, y)
   16. │     └─base::is.data.frame(y)
   17. └─purrr::reduce(., dplyr::full_join, by = "fit_id")
   18.   └─purrr:::reduce_impl(.x, .f, ..., .init = .init, .dir = .dir)
   19.     ├─dplyr (local) fn(out, elt, ...)
   20.     └─dplyr:::full_join.data.frame(out, elt, ...)
   21.       └─dplyr:::join_mutate(...)
   22.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   23.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   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]])
  
  [ FAIL 3 | WARN 20 | SKIP 0 | PASS 128 ]
  Error: Test failures
  Execution halted