Running 'testthat.R' [94s]
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/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(crane)
  Loading required package: gtsummary
  > 
  > test_check("crane")
  Starting 2 test processes.
  Saving _problems/test-add_hierarchical_count_row-12.R
  Saving _problems/test-add_hierarchical_count_row-48.R
  > test-tbl_shift.R: i Converting column "ANRIND" to a factor.
  Saving _problems/test-theme_gtsummary_roche-45.R
  [ FAIL 3 | WARN 2 | SKIP 40 | PASS 72 ]
  
  ══ Skipped tests (40) ══════════════════════════════════════════════════════════
  • On CRAN (40): 'test-add_blank_rows.R:73:1', 'test-add_blank_rows.R:99:1',
    'test-forestplot.R:2:3', 'test-add_difference_row.R:10:1',
    'test-add_difference_row.R:52:1', 'test-modify_zero_recode.R:1:1',
    'test-tbl_hierarchical_rate_and_count.R:1:1',
    'test-tbl_hierarchical_rate_by_grade.R:1:1', 'test-tbl_listing.R:6:1',
    'test-tbl_listing.R:12:1', 'test-tbl_listing.R:31:1',
    'test-tbl_listing.R:42:1', 'test-tbl_listing.R:57:1',
    'test-tbl_listing.R:70:1', 'test-tbl_listing.R:89:1',
    'test-tbl_listing.R:98:1', 'test-tbl_roche_summary.R:14:1',
    'test-tbl_roche_summary.R:85:1', 'test-tbl_shift.R:23:1',
    'test-tbl_shift.R:53:1', 'test-tbl_shift.R:72:1', 'test-tbl_shift.R:89:1',
    'test-tbl_shift.R:124:1', 'test-tbl_shift.R:159:1',
    'test-tbl_baseline_chg.R:12:1', 'test-tbl_baseline_chg.R:42:1',
    'test-tbl_baseline_chg.R:56:1', 'test-tbl_baseline_chg.R:73:1',
    'test-tbl_baseline_chg.R:104:1', 'test-tbl_baseline_chg.R:155:1',
    'test-tbl_baseline_chg.R:170:1', 'test-tbl_survfit_quantiles.R:3:1',
    'test-tbl_survfit_quantiles.R:53:1', 'test-tbl_survfit_quantiles.R:73:1',
    'test-tbl_survfit_quantiles.R:109:1', 'test-tbl_survfit_times.R:3:1',
    'test-tbl_survfit_times.R:57:1', 'test-tbl_survfit_times.R:79:1',
    'test-theme_gtsummary_roche.R:1:1', 'test-theme_gtsummary_roche.R:8:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-add_hierarchical_count_row.R:2:3'): add_hierarchical_count_row() works ──
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. └─gtsummary::tbl_hierarchical(...) at test-add_hierarchical_count_row.R:2:3
    2.   └─gtsummary:::internal_tbl_hierarchical(...)
    3.     └─gtsummary:::.run_ard_stack_hierarchical_fun(...)
    4.       └─cards::ard_stack_hierarchical(...)
    5.         └─cards:::internal_stack_hierarchical(...)
    6.           ├─base::append(...)
    7.           └─cards:::.run_hierarchical_fun(...)
    8.             ├─cards::ard_hierarchical(...)
    9.             └─cards:::ard_hierarchical.data.frame(...)
   10.               ├─cards::ard_tabulate(...)
   11.               └─cards:::ard_tabulate.data.frame(...)
   12.                 └─cards:::.calculate_tabulation_statistics(...)
   13.                   └─cards:::.process_denominator(...)
   14.                     ├─rlang::rep_named(...)
   15.                     │ └─rlang::set_names(rep_len(x, length(names)), names)
   16.                     ├─tidyr::drop_na(...)
   17.                     └─cards:::.table_as_df(...)
   18.                       ├─dplyr::as_tibble(...)
   19.                       └─tibble:::as_tibble.table(...)
   20.                         ├─base::as.data.frame(x, stringsAsFactors = FALSE)
   21.                         └─base::as.data.frame.table(x, stringsAsFactors = FALSE)
   22.                           ├─base::eval(ex)
   23.                           │ └─base::eval(ex)
   24.                           └─base::data.frame(...)
   25.                             ├─base::as.data.frame(x[[i]], optional = TRUE)
   26.                             └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-add_hierarchical_count_row.R:38:3'): add_hierarchical_count_row(data_preprocess) works ──
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. └─gtsummary::tbl_hierarchical(...) at test-add_hierarchical_count_row.R:38:3
    2.   └─gtsummary:::internal_tbl_hierarchical(...)
    3.     └─gtsummary:::.run_ard_stack_hierarchical_fun(...)
    4.       └─cards::ard_stack_hierarchical(...)
    5.         └─cards:::internal_stack_hierarchical(...)
    6.           ├─base::append(...)
    7.           └─cards:::.run_hierarchical_fun(...)
    8.             ├─cards::ard_hierarchical(...)
    9.             └─cards:::ard_hierarchical.data.frame(...)
   10.               ├─cards::ard_tabulate(...)
   11.               └─cards:::ard_tabulate.data.frame(...)
   12.                 └─cards:::.calculate_tabulation_statistics(...)
   13.                   └─cards:::.process_denominator(...)
   14.                     ├─rlang::rep_named(...)
   15.                     │ └─rlang::set_names(rep_len(x, length(names)), names)
   16.                     ├─tidyr::drop_na(...)
   17.                     └─cards:::.table_as_df(...)
   18.                       ├─dplyr::as_tibble(...)
   19.                       └─tibble:::as_tibble.table(...)
   20.                         ├─base::as.data.frame(x, stringsAsFactors = FALSE)
   21.                         └─base::as.data.frame.table(x, stringsAsFactors = FALSE)
   22.                           ├─base::eval(ex)
   23.                           │ └─base::eval(ex)
   24.                           └─base::data.frame(...)
   25.                             ├─base::as.data.frame(x[[i]], optional = TRUE)
   26.                             └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-theme_gtsummary_roche.R:32:3'): theme_gtsummary_roche() styles `tbl_hierarchical*()` results ──
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(...) at test-theme_gtsummary_roche.R:32:3
    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. ├─gtsummary::with_gtsummary_theme(...)
   10. │ └─rlang::eval_tidy(...)
   11. └─gtsummary::tbl_hierarchical(...)
   12.   └─gtsummary:::internal_tbl_hierarchical(...)
   13.     └─gtsummary:::.run_ard_stack_hierarchical_fun(...)
   14.       └─cards::ard_stack_hierarchical(...)
   15.         └─cards:::internal_stack_hierarchical(...)
   16.           ├─base::append(...)
   17.           └─cards:::.run_hierarchical_fun(...)
   18.             ├─cards::ard_hierarchical(...)
   19.             └─cards:::ard_hierarchical.data.frame(...)
   20.               ├─cards::ard_tabulate(...)
   21.               └─cards:::ard_tabulate.data.frame(...)
   22.                 └─cards:::.calculate_tabulation_statistics(...)
   23.                   └─cards:::.process_denominator(...)
   24.                     ├─rlang::rep_named(...)
   25.                     │ └─rlang::set_names(rep_len(x, length(names)), names)
   26.                     ├─tidyr::drop_na(...)
   27.                     └─cards:::.table_as_df(...)
   28.                       ├─dplyr::as_tibble(...)
   29.                       └─tibble:::as_tibble.table(...)
   30.                         ├─base::as.data.frame(x, stringsAsFactors = FALSE)
   31.                         └─base::as.data.frame.table(x, stringsAsFactors = FALSE)
   32.                           ├─base::eval(ex)
   33.                           │ └─base::eval(ex)
   34.                           └─base::data.frame(...)
   35.                             ├─base::as.data.frame(x[[i]], optional = TRUE)
   36.                             └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  
  [ FAIL 3 | WARN 2 | SKIP 40 | PASS 72 ]
  Error:
  ! Test failures.
  Execution halted