Skip to content

Dimensionality control for data testing #31

Dimensionality control for data testing

Dimensionality control for data testing #31

GitHub Actions / Unit Tests Summary failed Jul 29, 2024 in 0s

1 errors, 21 skipped, 45 pass in 29s

  1 files  Β±0    5 suites  Β±0   29s ⏱️ -1s
 67 tests +2   45 βœ… +1  21 πŸ’€ Β±0  0 ❌ Β±0  1 πŸ”₯ +1 
127 runsβ€Š +4  105 βœ… +3  21 πŸ’€ Β±0  0 ❌ Β±0  1 πŸ”₯ +1 

Results for commit ca863df. ± Comparison against earlier commit 5cc29cd.

Annotations

Check failure on line 0 in utils_dim_control_and_checks

See this annotation in the file changed.

@github-actions github-actions / Unit Tests Summary

describe_cols_df_works (utils_dim_control_and_checks) with error

random.cdisc.data.Rcheck/tests/testthat/junit-result.xml [took 0s]
Raw output
Error in `summarise(.tbl, !!!funs)`: i In argument: `TRTEDTM = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`. ('test-utils_dim_control_and_checks.R:89:3')
Error in `summarise(.tbl, !!!funs)`: i In argument: `TRTEDTM = (structure(function (..., .x = ..1, .y = ..2, . = ..1) ...`.
Caused by error in `as.POSIXlt.character()`:
! character string is not in a standard unambiguous format
Backtrace:
     x
  1. +-testthat::expect_equal(describe_cols(adae)$col.name, colnames(adae)) at test-utils_dim_control_and_checks.R:89:3
  2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
  3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
  4. +-random.cdisc.data::describe_cols(adae)
  5. | +-... %>% dplyr::mutate(n_empty_levels = n_levels - n_unique)
  6. | +-dplyr::bind_cols(...)
  7. | | \-rlang::list2(...)
  8. | \-... %>% c()
  9. +-dplyr::mutate(., n_empty_levels = n_levels - n_unique)
 10. +-base::t(.)
 11. +-dplyr::summarise_all(., ~sum(is_empty_string(.)))
 12. | +-dplyr::summarise(.tbl, !!!funs)
 13. | \-dplyr:::summarise.data.frame(.tbl, !!!funs)
 14. |   \-dplyr:::summarise_cols(.data, dplyr_quosures(...), by, "summarise")
 15. |     +-base::withCallingHandlers(...)
 16. |     \-dplyr:::map(quosures, summarise_eval_one, mask = mask)
 17. |       \-base::lapply(.x, .f, ...)
 18. |         \-dplyr (local) FUN(X[[i]], ...)
 19. |           \-mask$eval_all_summarise(quo)
 20. |             \-dplyr (local) eval()
 21. +-random.cdisc.data (local) `<inln_cl_>`(TRTEDTM)
 22. | \-rlang::eval_bare(`_quo`, base::parent.frame())
 23. +-rlang (local) sum(is_empty_string(.))
 24. +-random.cdisc.data::is_empty_string(.)
 25. | +-base::`[<-`(`*tmp*`, is.na(column), value = `<chr>`)
 26. | \-base::`[<-.POSIXct`(`*tmp*`, is.na(column), value = `<chr>`)
 27. |   +-base::as.POSIXct(value)
 28. |   \-base::as.POSIXct.default(value)
 29. |     +-base::as.POSIXct(as.POSIXlt(x, tz, ...), tz, ...)
 30. |     +-base::as.POSIXlt(x, tz, ...)
 31. |     \-base::as.POSIXlt.character(x, tz, ...)
 32. |       \-base::stop("character string is not in a standard unambiguous format")
 33. \-base::.handleSimpleError(...)
 34.   \-dplyr (local) h(simpleError(msg, call))
 35.     \-dplyr (local) handler(cnd)
 36.       \-rlang::abort(message, class = error_class, parent = parent, call = error_call)