Skip to content

Refactor ADPC

Refactor ADPC #438

This check has been archived and is scheduled for deletion. Learn more about checks retention
GitHub Actions / Unit Tests Summary failed Jul 12, 2023 in 0s

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

See this annotation in the file changed.

@github-actions 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

See this annotation in the file changed.

@github-actions 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

See this annotation in the file changed.

@github-actions 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(...)