Skip to content
CLA 🔏

Svy ard categorical unit tests #157

Sign in to view logs

Svy ard categorical unit tests

Svy ard categorical unit tests #157

GitHub Actions / Unit Tests Summary failed Jun 24, 2024 in 0s

1 errors, 24 skipped, 53 pass in 17s

  1 files  ±0   78 suites  ±0   17s ⏱️ ±0s
 78 tests ±0   53 ✅ ±0  24 💤 ±0  0 ❌ ±0  1 🔥 ±0 
323 runs  +5  286 ✅ +6  36 💤 ±0  0 ❌  - 1  1 🔥 ±0 

Results for commit 6a572be. ± Comparison against earlier commit 7db1314.

Annotations

Check failure on line 0 in character(0)

See this annotation in the file changed.

@github-actions github-actions / Unit Tests Summary

1 out of 7 runs with error: ard_dichotomous.survey.design_works (character(0)) 

cardx.Rcheck/tests/testthat/junit-result.xml [took 0s]
Raw output 
Error in `set_names(tidyr::pivot_wider(dplyr::mutate(tidyr::pivot_longer(dplyr::as_tibble(survey::svyby(formula = reformulate2(by),  ('test-ard_dichotomous.survey.design.R:40:3')
Error in `set_names(tidyr::pivot_wider(dplyr::mutate(tidyr::pivot_longer(dplyr::as_tibble(survey::svyby(formula = reformulate2(by), 
    by = reformulate2(variable), design = data, FUN = survey::svymean, 
    na.rm = TRUE, deff = deff)), -all_of(variable)), stat = dplyr::case_when(startsWith(.data$name, 
    paste0("se.", by)) | startsWith(.data$name, paste0("se.`", 
    by, "`")) ~ "p.std.error", startsWith(.data$name, paste0("DEff.", 
    by)) | startsWith(.data$name, paste0("DEff.`", by, "`")) ~ 
    "deff", TRUE ~ "p"), name = str_remove_all(.data$name, "se\\.") %>% 
    str_remove_all("DEff\\.") %>% str_remove_all(by) %>% str_remove_all("`")), 
    names_from = "stat", values_from = "value"), c("variable_level", 
    "group1_level", "p", "p.std.error", "deff"))`: The size of `nm` (5) must be compatible with the size of `x` (4).
Backtrace:
     ▆
  1. ├─testthat::expect_equal(...) at test-ard_dichotomous.survey.design.R:40:3
  2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
  3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
  4. ├─base::unlist(...)
  5. ├─cards::get_ard_statistics(...)
  6. │ └─dplyr::filter(x, ...)
  7. ├─cards::ard_dichotomous(...)
  8. ├─cardx:::ard_dichotomous.survey.design(...)
  9. │ ├─dplyr::mutate(...)
 10. │ ├─dplyr::filter(...)
 11. │ ├─cards::ard_categorical(...)
 12. │ └─cardx:::ard_categorical.survey.design(...)
 13. │   └─cardx:::.svytable_rate_stats(...)
 14. │     ├─dplyr::bind_rows(...)
 15. │     │ └─rlang::list2(...)
 16. │     └─base::lapply(...)
 17. │       └─cardx (local) FUN(X[[i]], ...)
 18. │         ├─cardx:::case_switch(...)
 19. │         │ └─base::eval(f_rhs(f), envir = attr(f, ".Environment"))
 20. │         │   └─base::eval(f_rhs(f), envir = attr(f, ".Environment"))
 21. │         └─cardx:::.one_svytable_rates_by_row(data, variable, by, deff)
 22. │           ├─dplyr::mutate(...)
 23. │           └─rlang::set_names(...)
 24. └─rlang::abort(message = message)
View more details on GitHub Actions