Running 'testthat.R' [32s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(keyATM)
  keyATM 0.4.1 successfully loaded.
   Papers, examples, resources, and other materials are at
   https://keyatm.github.io/keyATM/
  > 
  > test_check("keyATM")
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  Perplexity [1]: 10446.7 / Convergence [1]: 1
  Perplexity [2]: 9778.84 / Convergence [2]: 0.0639325
  Perplexity [3]: 9158.22 / Convergence [3]: 0.0634658
  Perplexity [4]: 8693.21 / Convergence [4]: 0.0507752
  Perplexity [5]: 8350.53 / Convergence [5]: 0.0394192
  0%   10   20   30   40   50   60   70   80   90   100%
  [----|----|----|----|----|----|----|----|----|----|
  **************************************************|
  [ FAIL 8 | WARN 2 | SKIP 9 | PASS 27 ]
  
  == Skipped tests ===============================================================
  * On CRAN (9)
  
  == Failed tests ================================================================
  -- Error ('test-Initialization.R:71'): Keep document names ---------------------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-Initialization.R:71:2
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(model$Z, posterior_z_base))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMBase.R:16'): (code run outside of `test_that()`) ---------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-keyATMBase.R:16:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(model$Z, posterior_z_base))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMCovDirMulti.R:15'): (code run outside of `test_that()`) --
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-keyATMCovDirMulti.R:15:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(1:length(model$Z), posterior_z_cov))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMCovPG.R:17'): (code run outside of `test_that()`) --------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-keyATMCovPG.R:17:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_phi(model, info)
    4. |     \-keyATM:::keyATM_output_phi_calc_key(...)
    5. |       \-keyATM (local) get_phi(res_tibble, switch_val = 0, model)
    6. |         \-temp %>% tidyr::spread(key = "Word", value = "Count")
    7. \-base::loadNamespace(x)
    8.   +-base::namespaceImportFrom(...)
    9.   | \-base::asNamespace(ns)
   10.   \-base::loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
   11.     \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMDynamic.R:17'): (code run outside of `test_that()`) ------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-keyATMDynamic.R:17:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     +-keyATM:::bind_tables(...)
    5. |     | +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |     | +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |     | | \-rlang::list2(...)
    8. |     | \-base::lapply(x, table_to_vector)
    9. |     \-base::lapply(...)
   10. |       \-keyATM (local) FUN(X[[i]], ...)
   11. |         \-keyATM:::table_to_vector(...)
   12. +-tibble::as_tibble(.)
   13. \-base::loadNamespace(x)
   14.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMHeterogeneity.R:52'): (code run outside of `test_that()`) --
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-keyATMHeterogeneity.R:52:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(1:length(model$Z), posterior_z_cov))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-keyATMvb.R:14'): (code run outside of `test_that()`) -----------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATMvb(...) at test-keyATMvb.R:14:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(model$Z, posterior_z_base))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  -- Error ('test-plot.R:16'): (code run outside of `test_that()`) ---------------
  Error in `library.dynam(lib, package, package.lib)`: DLL 'purrr' not found: maybe not installed for this architecture?
  Backtrace:
       x
    1. +-keyATM::keyATM(...) at test-plot.R:16:0
    2. | \-keyATM:::keyATM_output(fitted, keep)
    3. |   \-keyATM:::keyATM_output_theta(model, info)
    4. |     \-keyATM:::bind_tables(lapply(model$Z, posterior_z_base))
    5. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector)) %>% tibble::as_tibble()
    6. |       +-dplyr::bind_rows(!!!lapply(x, table_to_vector))
    7. |       | \-rlang::list2(...)
    8. |       \-base::lapply(x, table_to_vector)
    9. |         \-keyATM (local) FUN(X[[i]], ...)
   10. +-tibble::as_tibble(.)
   11. \-base::loadNamespace(x)
   12.   \-base::library.dynam(lib, package, package.lib)
  
  [ FAIL 8 | WARN 2 | SKIP 9 | PASS 27 ]
  Error: Test failures
  Execution halted