Refactor ADPC #438
3 errors, 20 skipped, 38 pass in 38s
ββ1 filesβ Β±ββ0ββββ4 suitesβ +1βββ38s β±οΈ +17s
61 tests +20ββ38 βοΈ +1ββ20 π€ +20ββ0 β Β±0ββ3 π₯ β-β1β
97 runsβ +21ββ74 βοΈ +2ββ20 π€ +20ββ0 β Β±0ββ3 π₯ β-β1β
Results for commit 0a9a43e.βΒ± Comparison against earlier commit 14fba72.
Annotations
Check failure on line 0 in metadata
github-actions / Unit Tests Summary
metadata_matches_radab (metadata) with error
random.cdisc.data.Rcheck/tests/testthat/junit-result.xmlβ[took 0s]
Raw output
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition> ('test-metadata.R:26:3')
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
Error in `dplyr::select(., STUDYID, USUBJID, VISIT, PCTPT, ARM, ACTARM,
VISITDY, ARELTM1, NRELTM1, ARELTM2, NRELTM2, RELTMU)`: Can't subset columns that don't exist.
x Column `ARELTM1` doesn't exist.
Backtrace:
x
1. +-random.cdisc.data::radab(adsl, adpc, seed = 1) at test-metadata.R:26:2
2. | \-... %>% rename(ISTPT = PCTPT)
3. +-dplyr::rename(., ISTPT = PCTPT)
4. +-dplyr::inner_join(...)
5. +-dplyr:::inner_join.data.frame(...)
6. | \-dplyr::auto_copy(x, y, copy = copy)
7. | +-dplyr::same_src(x, y)
8. | \-dplyr:::same_src.data.frame(x, y)
9. | \-base::is.data.frame(y)
10. +-... %>% unique()
11. +-base::unique(.)
12. +-dplyr::select(...)
13. +-dplyr:::select.data.frame(...)
14. | \-tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
15. | \-tidyselect:::eval_select_impl(...)
16. | +-tidyselect:::with_subscript_errors(...)
17. | | \-rlang::try_fetch(...)
18. | | \-base::withCallingHandlers(...)
19. | \-tidyselect:::vars_select_eval(...)
20. | \-tidyselect:::walk_data_tree(expr, data_mask, context_mask)
21. | \-tidyselect:::eval_c(expr, data_mask, context_mask)
22. | \-tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
23. | \-tidyselect:::walk_data_tree(new, data_mask, context_mask)
24. | \-tidyselect:::as_indices_sel_impl(...)
25. | \-tidyselect:::as_indices_impl(...)
26. | \-tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
27. | \-vctrs::vec_as_location(...)
28. \-vctrs (local) `<fn>`()
29. \-vctrs:::stop_subscript_oob(...)
30. \-vctrs:::stop_subscript(...)
31. \-rlang::abort(...)
Check failure on line 0 in rdata
github-actions / Unit Tests Summary
1 out of 12 runs with error: r_data_functions_work (rdata)
random.cdisc.data.Rcheck/tests/testthat/junit-result.xmlβ[took 0s]
Raw output
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition> ('test-rdata.R:13:3')
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
Error in `dplyr::select(., STUDYID, USUBJID, VISIT, PCTPT, ARM, ACTARM,
VISITDY, ARELTM1, NRELTM1, ARELTM2, NRELTM2, RELTMU)`: Can't subset columns that don't exist.
x Column `ARELTM1` doesn't exist.
Backtrace:
x
1. +-testthat::expect_silent(radab(adsl, adpc, seed = 1)) at test-rdata.R:13:2
2. | \-testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. | +-testthat (local) .capture(...)
4. | | +-withr::with_output_sink(...)
5. | | | \-base::force(code)
6. | | +-base::withCallingHandlers(...)
7. | | \-base::withVisible(code)
8. | \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. +-random.cdisc.data::radab(adsl, adpc, seed = 1)
10. | \-... %>% rename(ISTPT = PCTPT)
11. +-dplyr::rename(., ISTPT = PCTPT)
12. +-dplyr::inner_join(...)
13. +-dplyr:::inner_join.data.frame(...)
14. | \-dplyr::auto_copy(x, y, copy = copy)
15. | +-dplyr::same_src(x, y)
16. | \-dplyr:::same_src.data.frame(x, y)
17. | \-base::is.data.frame(y)
18. +-... %>% unique()
19. +-base::unique(.)
20. +-dplyr::select(...)
21. +-dplyr:::select.data.frame(...)
22. | \-tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
23. | \-tidyselect:::eval_select_impl(...)
24. | +-tidyselect:::with_subscript_errors(...)
25. | | \-rlang::try_fetch(...)
26. | | \-base::withCallingHandlers(...)
27. | \-tidyselect:::vars_select_eval(...)
28. | \-tidyselect:::walk_data_tree(expr, data_mask, context_mask)
29. | \-tidyselect:::eval_c(expr, data_mask, context_mask)
30. | \-tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
31. | \-tidyselect:::walk_data_tree(new, data_mask, context_mask)
32. | \-tidyselect:::as_indices_sel_impl(...)
33. | \-tidyselect:::as_indices_impl(...)
34. | \-tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
35. | \-vctrs::vec_as_location(...)
36. \-vctrs (local) `<fn>`()
37. \-vctrs:::stop_subscript_oob(...)
38. \-vctrs:::stop_subscript(...)
39. \-rlang::abort(...)
Check failure on line 0 in row_values
github-actions / Unit Tests Summary
radab_produces_expected_values (row_values) with error
random.cdisc.data.Rcheck/tests/testthat/junit-result.xmlβ[took 0s]
Raw output
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition> ('test-row_values.R:114:3')
<vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
Error in `dplyr::select(., STUDYID, USUBJID, VISIT, PCTPT, ARM, ACTARM,
VISITDY, ARELTM1, NRELTM1, ARELTM2, NRELTM2, RELTMU)`: Can't subset columns that don't exist.
x Column `ARELTM1` doesn't exist.
Backtrace:
x
1. +-random.cdisc.data::radab(adsl, adpc, seed = 1) at test-row_values.R:114:2
2. | \-... %>% rename(ISTPT = PCTPT)
3. +-dplyr::rename(., ISTPT = PCTPT)
4. +-dplyr::inner_join(...)
5. +-dplyr:::inner_join.data.frame(...)
6. | \-dplyr::auto_copy(x, y, copy = copy)
7. | +-dplyr::same_src(x, y)
8. | \-dplyr:::same_src.data.frame(x, y)
9. | \-base::is.data.frame(y)
10. +-... %>% unique()
11. +-base::unique(.)
12. +-dplyr::select(...)
13. +-dplyr:::select.data.frame(...)
14. | \-tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
15. | \-tidyselect:::eval_select_impl(...)
16. | +-tidyselect:::with_subscript_errors(...)
17. | | \-rlang::try_fetch(...)
18. | | \-base::withCallingHandlers(...)
19. | \-tidyselect:::vars_select_eval(...)
20. | \-tidyselect:::walk_data_tree(expr, data_mask, context_mask)
21. | \-tidyselect:::eval_c(expr, data_mask, context_mask)
22. | \-tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
23. | \-tidyselect:::walk_data_tree(new, data_mask, context_mask)
24. | \-tidyselect:::as_indices_sel_impl(...)
25. | \-tidyselect:::as_indices_impl(...)
26. | \-tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
27. | \-vctrs::vec_as_location(...)
28. \-vctrs (local) `<fn>`()
29. \-vctrs:::stop_subscript_oob(...)
30. \-vctrs:::stop_subscript(...)
31. \-rlang::abort(...)