Running ‘spelling.R’ [0s/1s]
  Running ‘testthat.R’ [125s/197s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(ggsurvfit)
  Loading required package: ggplot2
  > 
  > test_check("ggsurvfit")
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Plotting outcome "death from cancer".
  Saving 7 x 7 in image
  Saving 7 x 7 in image
  [ FAIL 28 | WARN 0 | SKIP 19 | PASS 147 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (5)
  • On Linux (14)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-add_quantile.R:173:3'): add_quantile() works x_value ─────────
  `... <- NULL` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_quantile.R:173:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggplot2:::`+.gg`(...)
    8. │ └─ggplot2:::add_ggplot(e1, e2, e2name)
    9. │   ├─ggplot2::ggplot_add(object, p, objectname)
   10. │   └─ggsurvfit:::ggplot_add.add_quantile(object, p, objectname)
   11. │     └─ggsurvfit:::update_add_quantile(plot, object)
   12. │       └─ggsurvfit:::.create_x_value_df(data, x_value)
   13. │         ├─... %>% ...
   14. │         ├─dplyr::full_join(df_quantile, df_times, by = c("x", "group"))
   15. │         └─dplyr:::full_join.data.frame(...)
   16. │           └─dplyr:::join_mutate(...)
   17. │             ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   18. │             └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21. │                   ├─base::withCallingHandlers(...)
   22. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   23. └─dplyr::arrange(., dplyr::across(dplyr::any_of(c("group", "x"))))
  ── Error ('test-add_quantile.R:180:3'): add_quantile() works x_value ───────────
  Error in `eval(code, test_env)`: object 'ggquanitle_x_value1' not found
  Backtrace:
      ▆
   1. └─vdiffr::expect_doppelganger("sf2-quantile-x_value", ggquanitle_x_value1) at test-add_quantile.R:180:2
   2.   └─vdiffr (local) writer(fig, testcase, title)
   3.     └─vdiffr:::print_plot(plot, title)
  ── Failure ('test-add_risktable.R:12:3'): add_risktable() works with ggsurvfit() ──
  `lst_survfit2_risktable %>% lapply(function(x) print(x))` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:12:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─lst_survfit2_risktable %>% lapply(function(x) print(x))
    8. ├─base::lapply(., function(x) print(x))
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   ├─base::print(x) at test-add_risktable.R:14:13
   11. │   └─ggsurvfit:::print.ggsurvfit(x)
   12. │     └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   13. │       ├─rlang::inject(...)
   14. │       └─ggsurvfit:::.construct_risktable(...)
   15. │         └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   16. │           └─... %>% ...
   17. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   18. ├─ggsurvfit:::.combine_over_outcomes(.)
   19. │ └─"outcome" %in% names(x)
   20. ├─ggsurvfit:::.keep_selected_times(., times = times)
   21. │ └─... %>% dplyr::select(-"time_group")
   22. ├─dplyr::select(., -"time_group")
   23. ├─dplyr::ungroup(.)
   24. ├─dplyr::filter(., .data$time %in% .env$times)
   25. ├─dplyr::mutate(...)
   26. ├─dplyr::group_by(...)
   27. ├─dplyr::mutate(...)
   28. ├─ggsurvfit:::.add_cumulative_stats(.)
   29. │ └─... %>% dplyr::ungroup()
   30. ├─dplyr::ungroup(.)
   31. ├─dplyr::mutate(...)
   32. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   33. ├─ggsurvfit:::.add_tidy_times(., times = times)
   34. │ ├─... %>% ...
   35. │ ├─dplyr::full_join(...)
   36. │ └─dplyr:::full_join.data.frame(...)
   37. │   └─dplyr:::join_mutate(...)
   38. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   39. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   40. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   41. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   42. │           ├─base::withCallingHandlers(...)
   43. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   44. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:19:3'): add_risktable() works with ggsurvfit() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:19:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:23:10
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggsurvfit(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:31:3'): add_risktable() works with ggsurvfit() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:31:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:35:10
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggsurvfit(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:43:3'): add_risktable() works with ggsurvfit() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:43:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf2, sf3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:45:13
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggsurvfit(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:49:3'): add_risktable() works with ggsurvfit() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:49:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf2, sf3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:51:13
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggsurvfit(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. │ └─... %>% dplyr::distinct()
   20. ├─dplyr::distinct(.)
   21. ├─dplyr::ungroup(.)
   22. ├─dplyr::mutate(...)
   23. ├─dplyr::group_by(., .data$time)
   24. ├─dplyr::select(...)
   25. ├─ggsurvfit:::.combine_over_outcomes(.)
   26. │ └─"outcome" %in% names(x)
   27. ├─ggsurvfit:::.keep_selected_times(., times = times)
   28. │ └─... %>% dplyr::select(-"time_group")
   29. ├─dplyr::select(., -"time_group")
   30. ├─dplyr::ungroup(.)
   31. ├─dplyr::filter(., .data$time %in% .env$times)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(...)
   34. ├─dplyr::mutate(...)
   35. ├─ggsurvfit:::.add_cumulative_stats(.)
   36. │ └─... %>% dplyr::ungroup()
   37. ├─dplyr::ungroup(.)
   38. ├─dplyr::mutate(...)
   39. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   40. ├─ggsurvfit:::.add_tidy_times(., times = times)
   41. │ ├─... %>% ...
   42. │ ├─dplyr::full_join(...)
   43. │ └─dplyr:::full_join.data.frame(...)
   44. │   └─dplyr:::join_mutate(...)
   45. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   46. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   47. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   48. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   49. │           ├─base::withCallingHandlers(...)
   50. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   51. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:134:3'): add_risktable() works with ggcuminc() ──
  `lst_cuminc_risktable %>% lapply(function(x) print(x))` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:134:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─lst_cuminc_risktable %>% lapply(function(x) print(x))
    8. ├─base::lapply(., function(x) print(x))
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   ├─base::print(x) at test-add_risktable.R:136:13
   11. │   └─ggsurvfit:::print.ggcuminc(x)
   12. │     └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   13. │       ├─rlang::inject(...)
   14. │       └─ggsurvfit:::.construct_risktable(...)
   15. │         └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   16. │           └─... %>% ...
   17. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   18. ├─ggsurvfit:::.combine_over_outcomes(.)
   19. │ └─"outcome" %in% names(x)
   20. ├─ggsurvfit:::.keep_selected_times(., times = times)
   21. │ └─... %>% dplyr::select(-"time_group")
   22. ├─dplyr::select(., -"time_group")
   23. ├─dplyr::ungroup(.)
   24. ├─dplyr::filter(., .data$time %in% .env$times)
   25. ├─dplyr::mutate(...)
   26. ├─dplyr::group_by(...)
   27. ├─dplyr::mutate(...)
   28. ├─ggsurvfit:::.add_cumulative_stats(.)
   29. │ └─... %>% dplyr::ungroup()
   30. ├─dplyr::ungroup(.)
   31. ├─dplyr::mutate(...)
   32. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   33. ├─ggsurvfit:::.add_tidy_times(., times = times)
   34. │ ├─... %>% ...
   35. │ ├─dplyr::full_join(...)
   36. │ └─dplyr:::full_join.data.frame(...)
   37. │   └─dplyr:::join_mutate(...)
   38. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   39. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   40. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   41. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   42. │           ├─base::withCallingHandlers(...)
   43. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   44. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:140:3'): add_risktable() works with ggcuminc() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:140:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(cuminc1, cuminc2, cuminc3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:144:10
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggcuminc(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:152:3'): add_risktable() works with ggcuminc() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:152:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(cuminc2, cuminc3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─... %>% print() at test-add_risktable.R:154:13
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggcuminc(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:158:3'): add_risktable() works with ggcuminc() ──
  ``%>%`(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:158:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(cuminc2, cuminc3) %>% ...
    8. ├─base::lapply(...)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─(ggcuminc(x) + add_risktable(combine_groups = TRUE)) %>% ... at test-add_risktable.R:160:13
   11. ├─base::print(.)
   12. ├─ggsurvfit:::print.ggcuminc(.)
   13. │ └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   14. │   ├─rlang::inject(...)
   15. │   └─ggsurvfit:::.construct_risktable(...)
   16. │     └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   17. │       └─... %>% ...
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. │ └─... %>% dplyr::distinct()
   20. ├─dplyr::distinct(.)
   21. ├─dplyr::ungroup(.)
   22. ├─dplyr::mutate(...)
   23. ├─dplyr::group_by(., .data$time)
   24. ├─dplyr::select(...)
   25. ├─ggsurvfit:::.combine_over_outcomes(.)
   26. │ └─"outcome" %in% names(x)
   27. ├─ggsurvfit:::.keep_selected_times(., times = times)
   28. │ └─... %>% dplyr::select(-"time_group")
   29. ├─dplyr::select(., -"time_group")
   30. ├─dplyr::ungroup(.)
   31. ├─dplyr::filter(., .data$time %in% .env$times)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(...)
   34. ├─dplyr::mutate(...)
   35. ├─ggsurvfit:::.add_cumulative_stats(.)
   36. │ └─... %>% dplyr::ungroup()
   37. ├─dplyr::ungroup(.)
   38. ├─dplyr::mutate(...)
   39. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   40. ├─ggsurvfit:::.add_tidy_times(., times = times)
   41. │ ├─... %>% ...
   42. │ ├─dplyr::full_join(...)
   43. │ └─dplyr:::full_join.data.frame(...)
   44. │   └─dplyr:::join_mutate(...)
   45. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   46. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   47. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   48. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   49. │           ├─base::withCallingHandlers(...)
   50. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   51. └─dplyr::arrange(...)
  ── Failure ('test-add_risktable.R:258:3'): add_risktable() works with Cox models ──
  `(ggsurvfit(sf_cox) + add_risktable()) %>% ggsurvfit_build()` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-add_risktable.R:258:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─(ggsurvfit(sf_cox) + add_risktable()) %>% ggsurvfit_build()
    8. ├─ggsurvfit::ggsurvfit_build(.)
    9. │ ├─rlang::inject(...)
   10. │ └─ggsurvfit:::.construct_risktable(...)
   11. │   └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   12. │     └─... %>% ...
   13. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   14. ├─ggsurvfit:::.combine_over_outcomes(.)
   15. │ └─"outcome" %in% names(x)
   16. ├─ggsurvfit:::.keep_selected_times(., times = times)
   17. │ └─... %>% dplyr::select(-"time_group")
   18. ├─dplyr::select(., -"time_group")
   19. ├─dplyr::ungroup(.)
   20. ├─dplyr::filter(., .data$time %in% .env$times)
   21. ├─dplyr::mutate(...)
   22. ├─dplyr::group_by(...)
   23. ├─dplyr::mutate(...)
   24. ├─ggsurvfit:::.add_cumulative_stats(.)
   25. │ └─... %>% dplyr::ungroup()
   26. ├─dplyr::ungroup(.)
   27. ├─dplyr::mutate(...)
   28. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   29. ├─ggsurvfit:::.add_tidy_times(., times = times)
   30. │ ├─... %>% ...
   31. │ ├─dplyr::full_join(...)
   32. │ └─dplyr:::full_join.data.frame(...)
   33. │   └─dplyr:::join_mutate(...)
   34. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   35. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   36. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   37. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   38. │           ├─base::withCallingHandlers(...)
   39. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   40. └─dplyr::arrange(...)
  ── Error ('test-add_risktable.R:265:3'): add_risktable() works with Cox models ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-add_risktable.R:265:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─sf_cox %>% tidy_survfit(times = 0:4 * 10) %>% ...
    5. ├─dplyr::select(...)
    6. ├─ggsurvfit::tidy_survfit(., times = 0:4 * 10)
    7. │ └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
    8. │   ├─... %>% ...
    9. │   ├─dplyr::full_join(...)
   10. │   └─dplyr:::full_join.data.frame(...)
   11. │     └─dplyr:::join_mutate(...)
   12. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   13. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   14. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16. │             ├─base::withCallingHandlers(...)
   17. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   18. └─dplyr::arrange(...)
  ── Error ('test-add_risktable_strata_symbol.R:10:3'): add_risktable_strata_symbol() works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─vdiffr::expect_doppelganger(...) at test-add_risktable_strata_symbol.R:10:2
    2. │ └─vdiffr (local) writer(fig, testcase, title)
    3. │   ├─vdiffr:::print_plot(plot, title)
    4. │   └─vdiffr:::print_plot.ggplot(plot, title)
    5. │     ├─base::print(p)
    6. │     └─ggsurvfit:::print.ggsurvfit(p)
    7. │       └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
    8. │         ├─rlang::inject(...)
    9. │         └─ggsurvfit:::.construct_risktable(...)
   10. │           └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   11. │             └─... %>% ...
   12. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   13. ├─ggsurvfit:::.combine_over_outcomes(.)
   14. │ └─"outcome" %in% names(x)
   15. ├─ggsurvfit:::.keep_selected_times(., times = times)
   16. │ └─... %>% dplyr::select(-"time_group")
   17. ├─dplyr::select(., -"time_group")
   18. ├─dplyr::ungroup(.)
   19. ├─dplyr::filter(., .data$time %in% .env$times)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::group_by(...)
   22. ├─dplyr::mutate(...)
   23. ├─ggsurvfit:::.add_cumulative_stats(.)
   24. │ └─... %>% dplyr::ungroup()
   25. ├─dplyr::ungroup(.)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   28. ├─ggsurvfit:::.add_tidy_times(., times = times)
   29. │ ├─... %>% ...
   30. │ ├─dplyr::full_join(...)
   31. │ └─dplyr:::full_join.data.frame(...)
   32. │   └─dplyr:::join_mutate(...)
   33. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   34. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   35. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   36. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   37. │           ├─base::withCallingHandlers(...)
   38. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   39. └─dplyr::arrange(...)
  ── Failure ('test-ggsurvfit_build.R:7:3'): ggsurvfit_build() works ─────────────
  `built_p <- ggsurvfit_build(p, combine_plots = FALSE)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-ggsurvfit_build.R:7:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggsurvfit::ggsurvfit_build(p, combine_plots = FALSE)
    8. │ ├─rlang::inject(...)
    9. │ └─ggsurvfit:::.construct_risktable(...)
   10. │   └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   11. │     └─... %>% ...
   12. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   13. ├─ggsurvfit:::.combine_over_outcomes(.)
   14. │ └─"outcome" %in% names(x)
   15. ├─ggsurvfit:::.keep_selected_times(., times = times)
   16. │ └─... %>% dplyr::select(-"time_group")
   17. ├─dplyr::select(., -"time_group")
   18. ├─dplyr::ungroup(.)
   19. ├─dplyr::filter(., .data$time %in% .env$times)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::group_by(...)
   22. ├─dplyr::mutate(...)
   23. ├─ggsurvfit:::.add_cumulative_stats(.)
   24. │ └─... %>% dplyr::ungroup()
   25. ├─dplyr::ungroup(.)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   28. ├─ggsurvfit:::.add_tidy_times(., times = times)
   29. │ ├─... %>% ...
   30. │ ├─dplyr::full_join(...)
   31. │ └─dplyr:::full_join.data.frame(...)
   32. │   └─dplyr:::join_mutate(...)
   33. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   34. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   35. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   36. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   37. │           ├─base::withCallingHandlers(...)
   38. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   39. └─dplyr::arrange(...)
  ── Error ('test-ggsurvfit_build.R:12:3'): ggsurvfit_build() works ──────────────
  Error in `eval(code, test_env)`: object 'built_p' not found
  Backtrace:
      ▆
   1. ├─testthat::expect_true(inherits(built_p, "list")) at test-ggsurvfit_build.R:12:2
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─base::inherits(built_p, "list")
  ── Failure ('test-grid.draw_ggsurvfit.R:8:3'): grid.draw() works ───────────────
  `save_image_png(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-grid.draw_ggsurvfit.R:8:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggsurvfit (local) save_image_png(...)
    8. │ └─ggplot2::ggsave(filename = path, plot = x) at test-grid.draw_ggsurvfit.R:4:4
    9. │   ├─grid::grid.draw(plot)
   10. │   └─ggsurvfit:::grid.draw.ggsurvfit(plot)
   11. │     ├─ggsurvfit_build(x, combine_plots = TRUE) %>% ...
   12. │     └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   13. │       ├─rlang::inject(...)
   14. │       └─ggsurvfit:::.construct_risktable(...)
   15. │         └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   16. │           └─... %>% ...
   17. ├─grid::grid.draw(., recording = recording)
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Failure ('test-grid.draw_ggsurvfit.R:17:3'): grid.draw() works ──────────────
  `save_image_png(...)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-grid.draw_ggsurvfit.R:17:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggsurvfit (local) save_image_png(...)
    8. │ └─ggplot2::ggsave(filename = path, plot = x) at test-grid.draw_ggsurvfit.R:4:4
    9. │   ├─grid::grid.draw(plot)
   10. │   └─ggsurvfit:::grid.draw.ggcuminc(plot)
   11. │     ├─ggsurvfit_build(x, combine_plots = TRUE) %>% ...
   12. │     └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
   13. │       ├─rlang::inject(...)
   14. │       └─ggsurvfit:::.construct_risktable(...)
   15. │         └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   16. │           └─... %>% ...
   17. ├─grid::grid.draw(., recording = recording)
   18. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   19. ├─ggsurvfit:::.combine_over_outcomes(.)
   20. │ └─"outcome" %in% names(x)
   21. ├─ggsurvfit:::.keep_selected_times(., times = times)
   22. │ └─... %>% dplyr::select(-"time_group")
   23. ├─dplyr::select(., -"time_group")
   24. ├─dplyr::ungroup(.)
   25. ├─dplyr::filter(., .data$time %in% .env$times)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(...)
   28. ├─dplyr::mutate(...)
   29. ├─ggsurvfit:::.add_cumulative_stats(.)
   30. │ └─... %>% dplyr::ungroup()
   31. ├─dplyr::ungroup(.)
   32. ├─dplyr::mutate(...)
   33. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   34. ├─ggsurvfit:::.add_tidy_times(., times = times)
   35. │ ├─... %>% ...
   36. │ ├─dplyr::full_join(...)
   37. │ └─dplyr:::full_join.data.frame(...)
   38. │   └─dplyr:::join_mutate(...)
   39. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   40. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,3]>`)
   41. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   42. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   43. │           ├─base::withCallingHandlers(...)
   44. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   45. └─dplyr::arrange(...)
  ── Error ('test-theme_risktable.R:12:3'): theme_risktable works ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─vdiffr::expect_doppelganger(...) at test-theme_risktable.R:12:2
    2. │ └─vdiffr (local) writer(fig, testcase, title)
    3. │   ├─vdiffr:::print_plot(plot, title)
    4. │   └─vdiffr:::print_plot.ggplot(plot, title)
    5. │     ├─base::print(p)
    6. │     └─ggsurvfit:::print.ggsurvfit(p)
    7. │       └─ggsurvfit::ggsurvfit_build(x, combine_plots = TRUE)
    8. │         ├─rlang::inject(...)
    9. │         └─ggsurvfit:::.construct_risktable(...)
   10. │           └─ggsurvfit:::.prepare_data_for_risk_tables(...)
   11. │             └─... %>% ...
   12. ├─ggsurvfit:::.combine_over_strata(., combine_groups = combine_groups)
   13. ├─ggsurvfit:::.combine_over_outcomes(.)
   14. │ └─"outcome" %in% names(x)
   15. ├─ggsurvfit:::.keep_selected_times(., times = times)
   16. │ └─... %>% dplyr::select(-"time_group")
   17. ├─dplyr::select(., -"time_group")
   18. ├─dplyr::ungroup(.)
   19. ├─dplyr::filter(., .data$time %in% .env$times)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::group_by(...)
   22. ├─dplyr::mutate(...)
   23. ├─ggsurvfit:::.add_cumulative_stats(.)
   24. │ └─... %>% dplyr::ungroup()
   25. ├─dplyr::ungroup(.)
   26. ├─dplyr::mutate(...)
   27. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   28. ├─ggsurvfit:::.add_tidy_times(., times = times)
   29. │ ├─... %>% ...
   30. │ ├─dplyr::full_join(...)
   31. │ └─dplyr:::full_join.data.frame(...)
   32. │   └─dplyr:::join_mutate(...)
   33. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   34. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   35. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   36. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   37. │           ├─base::withCallingHandlers(...)
   38. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   39. └─dplyr::arrange(...)
  ── Failure ('test-tidy_cuminc.R:11:3'): tidy_cuminc() works ────────────────────
  `list(cuminc1, cuminc2, cuminc3) %>% lapply(tidy_cuminc, times = 12:14)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_cuminc.R:11:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(cuminc1, cuminc2, cuminc3) %>% ...
    8. ├─base::lapply(., tidy_cuminc, times = 12:14)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   ├─tidycmprsk::tidy(x, times = times)
   11. │   └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   12. │     └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   13. │       ├─... %>% ...
   14. │       ├─dplyr::full_join(...)
   15. │       └─dplyr:::full_join.data.frame(...)
   16. │         └─dplyr:::join_mutate(...)
   17. │           ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   18. │           └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21. │                 ├─base::withCallingHandlers(...)
   22. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   23. └─dplyr::arrange(...)
  ── Failure ('test-tidy_cuminc.R:16:3'): tidy_cuminc() works ────────────────────
  `list(cuminc1, cuminc2, cuminc3) %>% lapply(tidy_cuminc, times = 1)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_cuminc.R:16:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(cuminc1, cuminc2, cuminc3) %>% ...
    8. ├─base::lapply(., tidy_cuminc, times = 1)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   ├─tidycmprsk::tidy(x, times = times)
   11. │   └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   12. │     └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   13. │       ├─... %>% ...
   14. │       ├─dplyr::full_join(...)
   15. │       └─dplyr:::full_join.data.frame(...)
   16. │         └─dplyr:::join_mutate(...)
   17. │           ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   18. │           └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   19. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21. │                 ├─base::withCallingHandlers(...)
   22. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   23. └─dplyr::arrange(...)
  ── Error ('test-tidy_cuminc.R:27:3'): tidy_cuminc() works ──────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% .keep_selected_times(times = times) at test-tidy_cuminc.R:27:2
    2. ├─ggsurvfit:::.keep_selected_times(., times = times)
    3. │ └─... %>% dplyr::select(-"time_group")
    4. ├─dplyr::select(., -"time_group")
    5. ├─dplyr::ungroup(.)
    6. ├─dplyr::filter(., .data$time %in% .env$times)
    7. ├─dplyr::mutate(...)
    8. ├─dplyr::group_by(...)
    9. ├─dplyr::mutate(...)
   10. ├─ggsurvfit:::.add_cumulative_stats(.)
   11. │ └─... %>% dplyr::ungroup()
   12. ├─dplyr::ungroup(.)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::group_by(., dplyr::across(dplyr::any_of(c("strata", "outcome"))))
   15. ├─ggsurvfit:::.add_tidy_times(., times = times)
   16. │ ├─... %>% ...
   17. │ ├─dplyr::full_join(...)
   18. │ └─dplyr:::full_join.data.frame(...)
   19. │   └─dplyr:::join_mutate(...)
   20. │     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   21. │     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   22. │       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   23. │         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   24. │           ├─base::withCallingHandlers(...)
   25. │           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   26. └─dplyr::arrange(...)
  ── Error ('test-tidy_cuminc.R:89:3'): tidy_cuminc() throws appropriate errors ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_message(tidy_cuminc(cuminc1, times = -5:5)) at test-tidy_cuminc.R:89:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─ggsurvfit::tidy_cuminc(cuminc1, times = -5:5)
    8. │ ├─tidycmprsk::tidy(x, times = times)
    9. │ └─tidycmprsk:::tidy.tidycuminc(x, times = times)
   10. │   └─tidycmprsk:::.add_tidy_times(x$tidy, times = times)
   11. │     ├─... %>% ...
   12. │     ├─dplyr::full_join(...)
   13. │     └─dplyr:::full_join.data.frame(...)
   14. │       └─dplyr:::join_mutate(...)
   15. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   17. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │               ├─base::withCallingHandlers(...)
   20. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::arrange(...)
  ── Failure ('test-tidy_survfit.R:26:3'): tidy_survfit() works with survfit2() ──
  `list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 12:14)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_survfit.R:26:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 12:14)
    8. ├─base::lapply(., tidy_survfit, times = 12:14)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
   11. │     ├─... %>% ...
   12. │     ├─dplyr::full_join(...)
   13. │     └─dplyr:::full_join.data.frame(...)
   14. │       └─dplyr:::join_mutate(...)
   15. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │               ├─base::withCallingHandlers(...)
   20. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::arrange(...)
  ── Failure ('test-tidy_survfit.R:31:3'): tidy_survfit() works with survfit2() ──
  `list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 1)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_survfit.R:31:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 1)
    8. ├─base::lapply(., tidy_survfit, times = 1)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
   11. │     ├─... %>% ...
   12. │     ├─dplyr::full_join(...)
   13. │     └─dplyr:::full_join.data.frame(...)
   14. │       └─dplyr:::join_mutate(...)
   15. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │               ├─base::withCallingHandlers(...)
   20. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::arrange(...)
  ── Error ('test-tidy_survfit.R:43:3'): tidy_survfit() works with survfit2() ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-tidy_survfit.R:43:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─sf1 %>% tidy_survfit(times = times) %>% dplyr::pull(n.risk)
    5. ├─dplyr::pull(., n.risk)
    6. ├─ggsurvfit::tidy_survfit(., times = times)
    7. │ └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
    8. │   ├─... %>% ...
    9. │   ├─dplyr::full_join(...)
   10. │   └─dplyr:::full_join.data.frame(...)
   11. │     └─dplyr:::join_mutate(...)
   12. │       ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13. │       └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   14. │         └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   15. │           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16. │             ├─base::withCallingHandlers(...)
   17. │             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   18. └─dplyr::arrange(...)
  ── Failure ('test-tidy_survfit.R:108:3'): tidy_survfit() works with survfit() ──
  `list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 12:14)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_survfit.R:108:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 12:14)
    8. ├─base::lapply(., tidy_survfit, times = 12:14)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
   11. │     ├─... %>% ...
   12. │     ├─dplyr::full_join(...)
   13. │     └─dplyr:::full_join.data.frame(...)
   14. │       └─dplyr:::join_mutate(...)
   15. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │               ├─base::withCallingHandlers(...)
   20. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::arrange(...)
  ── Failure ('test-tidy_survfit.R:113:3'): tidy_survfit() works with survfit() ──
  `list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 1)` threw an unexpected error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-tidy_survfit.R:113:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─list(sf1, sf2, sf3) %>% lapply(tidy_survfit, times = 1)
    8. ├─base::lapply(., tidy_survfit, times = 1)
    9. │ └─ggsurvfit (local) FUN(X[[i]], ...)
   10. │   └─ggsurvfit:::.add_tidy_times(df_tidy, times = times)
   11. │     ├─... %>% ...
   12. │     ├─dplyr::full_join(...)
   13. │     └─dplyr:::full_join.data.frame(...)
   14. │       └─dplyr:::join_mutate(...)
   15. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   16. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   17. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   18. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19. │               ├─base::withCallingHandlers(...)
   20. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   21. └─dplyr::arrange(...)
  
  [ FAIL 28 | WARN 0 | SKIP 19 | PASS 147 ]
  Deleting unused snapshots:
  • add_censor_mark/cuminc1-censor-mark-all-outcomes.svg
  • add_censor_mark/cuminc1-censor-mark.svg
  • add_censor_mark/cuminc2-censor-mark-all-outcomes.svg
  • add_censor_mark/cuminc2-censor-mark.svg
  • add_censor_mark/cuminc3-censor-mark-all-outcomes.svg
  • add_censor_mark/cuminc3-censor-mark.svg
  • add_censor_mark/sf1-censor-mark.svg
  • add_censor_mark/sf2-censor-mark.svg
  • add_censor_mark/sf3-censor-mark.svg
  • add_confidence_interval/cuminc1-confidence-interval-all-outcomes.svg
  • add_confidence_interval/cuminc2-confidence-interval-all-outcomes.svg
  • add_confidence_interval/cuminc2-confidence-interval.svg
  • add_confidence_interval/cuminc3-confidence-interval-all-outcomes.svg
  • add_confidence_interval/cuminc3-confidence-interval.svg
  • add_confidence_interval/sf2-confidence-interval.svg
  • add_confidence_interval/sf3-confidence-interval.svg
  • add_pvalue/cuminc2-pvalue.svg
  • add_pvalue/sf2-pvalue-annotation-risk.svg
  • add_pvalue/sf2-pvalue-annotation.svg
  • add_pvalue/sf2-pvalue-with-survfit.svg
  • add_quantile/cuminc1-quantile-all-outcomes.svg
  • add_quantile/cuminc1-quantile.svg
  • add_quantile/cuminc2-quantile-all-outcomes.svg
  • add_quantile/cuminc2-quantile.svg
  • add_quantile/cuminc3-quantile-all-outcomes.svg
  • add_quantile/cuminc3-quantile.svg
  • add_quantile/sf-mtcars-decreasing-many-quantiles.svg
  • add_quantile/sf-mtcars-decreasing.svg
  • add_quantile/sf-mtcars-increasing-many-quantiles.svg
  • add_quantile/sf-mtcars-increasing.svg
  • add_quantile/sf-mtcars-timing.svg
  • add_quantile/sf1-quantile.svg
  • add_quantile/sf2-colon-quantile-no-line.svg
  • add_quantile/sf2-colon-quantile.svg
  • add_quantile/sf2-quantile-x-value-not-all-groups.svg
  • add_quantile/sf2-quantile-x-value-out-of-bounds.svg
  • add_quantile/sf2-quantile.svg
  • add_quantile/sf3-quantile.svg
  • add_risktable/add-risktable-overall1.svg
  • add_risktable/add-risktable-overall2.svg
  • add_risktable/add-risktable-weights.svg
  • add_risktable/cuminc1-risktable-all-outcomes.svg
  • add_risktable/cuminc1-risktable.svg
  • add_risktable/cuminc2-risktable-all-outcomes.svg
  • add_risktable/cuminc2-risktable.svg
  • add_risktable/cuminc3-risktable-all-outcomes.svg
  • add_risktable/cuminc3-risktable.svg
  • add_risktable/sf1-risktable-custom-stats-and-label.svg
  • add_risktable/sf1-risktable-custom-stats-and-label2.svg
  • add_risktable/sf1-risktable-height.svg
  • add_risktable/sf1-risktable.svg
  • add_risktable/sf2-risktable-custom-stats-and-label.svg
  • add_risktable/sf2-risktable-custom-stats-and-label2.svg
  • add_risktable/sf2-risktable.svg
  • add_risktable/sf3-risktable-custom-stats-and-label.svg
  • add_risktable/sf3-risktable-custom-stats-and-label2.svg
  • add_risktable/sf3-risktable.svg
  • add_risktable_strata_symbol/add-risktable-strata-symbol-circle.svg
  • add_risktable_strata_symbol/add-risktable-strata-symbol-uni.svg
  • ggcuminc/cuminc1-ggcuminc-all-outcomes.svg
  • ggcuminc/cuminc1-ggcuminc-sf-all-outcomes.svg
  • ggcuminc/cuminc1-ggcuminc.svg
  • ggcuminc/cuminc2-ggcuminc-all-outcomes.svg
  • ggcuminc/cuminc2-ggcuminc-sf-all-outcomes.svg
  • ggcuminc/cuminc2-ggcuminc.svg
  • ggcuminc/cuminc3-ggcuminc-all-outcomes.svg
  • ggcuminc/cuminc3-ggcuminc-sf-all-outcomes.svg
  • ggcuminc/cuminc3-ggcuminc.svg
  • ggcuminc/sf-cuminc2-ggcuminc.svg
  • ggcuminc/sf-cuminc3-ggcuminc.svg
  • ggsurvfit/sf1-ggsurvfit-cumhaz.svg
  • ggsurvfit/sf1-ggsurvfit-custom.svg
  • ggsurvfit/sf1-ggsurvfit-kmunicate.svg
  • ggsurvfit/sf1-ggsurvfit-risk.svg
  • ggsurvfit/sf2-ggsurvfit-cumhaz.svg
  • ggsurvfit/sf2-ggsurvfit-custom.svg
  • ggsurvfit/sf2-ggsurvfit-kmunicate.svg
  • ggsurvfit/sf2-ggsurvfit-linetype.svg
  • ggsurvfit/sf2-ggsurvfit-new-data-geom1.svg
  • ggsurvfit/sf2-ggsurvfit-new-data-geom2.svg
  • ggsurvfit/sf2-ggsurvfit-risk.svg
  • ggsurvfit/sf2-ggsurvfit-strata-transformation.svg
  • ggsurvfit/sf2-ggsurvfit.svg
  • ggsurvfit/sf3-ggsurvfit-cumhaz.svg
  • ggsurvfit/sf3-ggsurvfit-custom.svg
  • ggsurvfit/sf3-ggsurvfit-kmunicate.svg
  • ggsurvfit/sf3-ggsurvfit-linetype.svg
  • ggsurvfit/sf3-ggsurvfit-risk.svg
  • ggsurvfit/sf3-ggsurvfit.svg
  • stat_stepribbon/gg-stepribbon1.svg
  • stat_stepribbon/gg-stepribbon2.svg
  • theme_risktable/sf1-ggsurvfit-theme-risktable-boxed-symbol.svg
  • theme_risktable/sf1-ggsurvfit-theme-risktable-boxed.svg
  • theme_risktable/sf2-ggsurvfit-theme-risktable-boxed-symbol.svg
  • theme_risktable/sf2-ggsurvfit-theme-risktable-boxed.svg
  • theme_risktable/sf2-ggsurvfit-theme-risktable-default.svg
  • theme_risktable/sf3-ggsurvfit-theme-risktable-boxed-symbol.svg
  • theme_risktable/sf3-ggsurvfit-theme-risktable-boxed.svg
  • theme_risktable/sf3-ggsurvfit-theme-risktable-default.svg
  Error: Test failures
  Execution halted