Running examples in ‘skater-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: ped2kinpair
> ### Title: Pedigree to pairwise kinship
> ### Aliases: ped2kinpair
> 
> ### ** Examples
> 
> famfile <- system.file("extdata", "3gens.fam", package="skater", mustWork=TRUE)
> famfile %>%
+   read_fam() %>%
+   fam2ped() %>%
+   dplyr::mutate(kinpairs=purrr::map(ped, ped2kinpair)) %>%
+   dplyr::select(fid, kinpairs) %>%
+   tidyr::unnest(cols=kinpairs)
Error in `dplyr::mutate()`:
ℹ In argument: `kinpairs = purrr::map(ped, ped2kinpair)`.
Caused by error in `purrr::map()`:
ℹ In index: 1.
Caused by error in `vectbl_assign()`:
! DLL requires the use of native symbols
Backtrace:
     ▆
  1. ├─... %>% tidyr::unnest(cols = kinpairs)
  2. ├─tidyr::unnest(., cols = kinpairs)
  3. ├─dplyr::select(., fid, kinpairs)
  4. ├─dplyr::mutate(., kinpairs = purrr::map(ped, ped2kinpair))
  5. ├─dplyr:::mutate.data.frame(., kinpairs = purrr::map(ped, ped2kinpair))
  6. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
  7. │   ├─base::withCallingHandlers(...)
  8. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
  9. │     └─mask$eval_all_mutate(quo)
 10. │       └─dplyr (local) eval()
 11. ├─purrr::map(ped, ped2kinpair)
 12. │ └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
 13. │   ├─purrr:::with_indexed_errors(...)
 14. │   │ └─base::withCallingHandlers(...)
 15. │   ├─purrr:::call_with_cleanup(...)
 16. │   └─skater (local) .f(.x[[i]], ...)
 17. │     └─... %>% arrange_ids(id1, id2)
 18. ├─skater::arrange_ids(., id1, id2)
 19. │ └─... %>% dplyr::select(-.x1, -.x2)
 20. ├─dplyr::select(., -.x1, -.x2)
 21. ├─dplyr::mutate(., `:=`(!!.id1, .x1), `:=`(!!.id2, .x2))
 22. ├─dplyr::mutate(., .x2 = pmax(!!.id1, !!.id2))
 23. ├─dplyr::mutate(., .x1 = pmin(!!.id1, !!.id2))
 24. ├─dplyr::transmute(., id1 = pmin(x, y), id2 = pmax(x, y), k = r)
 25. ├─stats::na.omit(.)
 26. ├─corrr::stretch(.)
 27. ├─corrr::shave(.)
 28. ├─corrr:::shave.cor_df(.)
 29. │ ├─base::`[<-`(`*tmp*`, upper.tri(x), value = `<lgl>`)
 30. │ └─tibble:::`[<-.tbl_df`(`*tmp*`, upper.tri(x), value = `<lgl>`)
 31. │   └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
 32. │     ├─base::withCallingHandlers(...)
 33. │     └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
 34. └─base::.handleSimpleError(...)
 35.   └─purrr (local) h(simpleError(msg, call))
 36.     └─cli::cli_abort(...)
 37.       └─rlang::abort(...)
Execution halted