Running 'testthat.R' [4s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(whomds)
  Loading required package: psych
  
  Attaching package: 'psych'
  
  The following object is masked from 'package:testthat':
  
      describe
  
  Thank you for using whomds. To learn more about the WHO Model Disability Survey (MDS) and for contact information, go to https://www.who.int/health-topics/disability
  > 
  > test_check("whomds")
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 2 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-dimensions.R:20:3'): Dimensions as multiple of formula_vars, levels, and by_vars ──
  Error in `dplyr::summarise(.data$variables, !!!.dots, .groups = .groups)`: ℹ In argument: `prop = survey_mean(na.rm = TRUE)`.
  ℹ In group 1: `sex = Female`, `item = EF1`, `resp = 1`.
  Caused by error in `crossprod()`:
  ! "crossprod" is not a BUILTIN function
  Backtrace:
       ▆
    1. ├─whomds::table_weightedpct(...) at test-dimensions.R:20:2
    2. │ └─... %>% mutate(prop = prop * 100)
    3. ├─dplyr::mutate(., prop = prop * 100)
    4. ├─dplyr::summarize(., prop = survey_mean(na.rm = TRUE))
    5. ├─srvyr:::summarise.grouped_svy(., prop = survey_mean(na.rm = TRUE))
    6. │ ├─dplyr::summarise(.data$variables, !!!.dots, .groups = .groups)
    7. │ └─dplyr:::summarise.grouped_df(.data$variables, !!!.dots, .groups = .groups)
    8. │   └─dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
    9. │     ├─base::withCallingHandlers(...)
   10. │     └─dplyr:::map(quosures, summarise_eval_one, mask = mask)
   11. │       └─base::lapply(.x, .f, ...)
   12. │         └─dplyr (local) FUN(X[[i]], ...)
   13. │           └─mask$eval_all_summarise(quo)
   14. │             └─dplyr (local) eval()
   15. ├─srvyr::survey_mean(na.rm = TRUE)
   16. │ └─srvyr::survey_prop(...)
   17. │   ├─survey::svymean(...)
   18. │   └─survey:::svymean.survey.design2(...)
   19. │     └─survey::svyrecvar(...)
   20. │       └─survey:::multistage(...)
   21. │         └─survey:::onestage(...)
   22. │           └─base::tapply(...)
   23. │             └─base::lapply(X = ans[index], FUN = FUN, ...)
   24. │               └─survey (local) FUN(X[[i]], ...)
   25. │                 └─survey:::onestrat(...)
   26. └─base::.handleSimpleError(...)
   27.   └─dplyr (local) h(simpleError(msg, call))
   28.     └─dplyr (local) handler(cnd)
   29.       └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 2 ]
  Error: Test failures
  Execution halted