Running ‘testthat.R’ [83s/129s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(Tplyr)
  > 
  > test_check("Tplyr")
  [ FAIL 23 | WARN 135 | SKIP 63 | PASS 487 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (63)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-count.R:146:3'): Count layers are summarized without errors and warnings ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(build(t5)) at test-count.R:146: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. ├─Tplyr::build(t5)
   10. ├─Tplyr:::build.tplyr_table(t5)
   11. │ ├─base::tryCatch(...)
   12. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │ └─purrr::map(x$layers, process_formatting)
   14. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   15. │     ├─purrr:::with_indexed_errors(...)
   16. │     │ └─base::withCallingHandlers(...)
   17. │     ├─purrr:::call_with_cleanup(...)
   18. │     ├─Tplyr (local) .f(.x[[i]], ...)
   19. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   20. │       ├─Tplyr:::add_order_columns(x)
   21. │       └─Tplyr:::add_order_columns.count_layer(x)
   22. │         └─base::evalq(...)
   23. │           └─base::evalq(...)
   24. │             ├─base::`[<-`(`*tmp*`, na_ordered_row, ord_cols[na_ord_cols], value = `<dbl>`)
   25. │             └─tibble:::`[<-.tbl_df`(...)
   26. │               └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   27. │                 └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   28. │                   ├─base::withCallingHandlers(...)
   29. │                   └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   30. └─base::.handleSimpleError(...)
   31.   └─purrr (local) h(simpleError(msg, call))
   32.     └─cli::cli_abort(...)
   33.       └─rlang::abort(...)
  ── Failure ('test-count.R:174:3'): Count layers are processed as expected ──────
  dim(c6$numeric_data) (`actual`) not equal to c(9, 6) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (9, 6)
  ── Failure ('test-count.R:175:3'): Count layers are processed as expected ──────
  dim(c7$numeric_data) (`actual`) not equal to c(27, 7) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (27, 7)
  ── Failure ('test-count.R:176:3'): Count layers are processed as expected ──────
  dim(c8$numeric_data) (`actual`) not equal to c(9, 6) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (9, 6)
  ── Failure ('test-count.R:177:3'): Count layers are processed as expected ──────
  dim(c9$numeric_data) (`actual`) not equal to c(27, 7) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (27, 7)
  ── Failure ('test-count.R:178:3'): Count layers are processed as expected ──────
  dim(c10$numeric_data) (`actual`) not equal to c(9, 6) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (9, 6)
  ── Failure ('test-count.R:185:3'): Count layers are processed as expected ──────
  c6$numeric_data$n has type 'NULL', not 'double'.
  ── Failure ('test-count.R:186:3'): Count layers are processed as expected ──────
  c7$numeric_data$n has type 'NULL', not 'double'.
  ── Failure ('test-count.R:187:3'): Count layers are processed as expected ──────
  c8$numeric_data$n has type 'NULL', not 'double'.
  ── Failure ('test-count.R:188:3'): Count layers are processed as expected ──────
  c9$numeric_data$n has type 'NULL', not 'double'.
  ── Failure ('test-count.R:189:3'): Count layers are processed as expected ──────
  c10$numeric_data$n has type 'NULL', not 'double'.
  ── Failure ('test-count.R:207:3'): Count layers are processed as expected ──────
  t19$layers[[1]]$numeric_data$total (`actual`) not equal to c(...) (`expected`).
  
  `actual` is NULL
  `expected` is an integer vector (19, 19, 19, 19, 19, ...)
  ── Error ('test-count.R:213:3'): nested count layers can be rebuilt without changes ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─Tplyr::build(t7) at test-count.R:213:2
    2. ├─Tplyr:::build.tplyr_table(t7)
    3. │ ├─base::tryCatch(...)
    4. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. │ └─purrr::map(x$layers, process_formatting)
    6. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │     ├─purrr:::with_indexed_errors(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     ├─purrr:::call_with_cleanup(...)
   10. │     ├─Tplyr (local) .f(.x[[i]], ...)
   11. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   12. │       └─base::evalq(...)
   13. │         └─base::evalq(...)
   14. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   15. │           └─tibble:::`[<-.tbl_df`(...)
   16. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18. │                 ├─base::withCallingHandlers(...)
   19. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   20. └─base::.handleSimpleError(...)
   21.   └─purrr (local) h(simpleError(msg, call))
   22.     └─cli::cli_abort(...)
   23.       └─rlang::abort(...)
  ── Failure ('test-count.R:289:3'): Nested count layers can be built with text by variables ──
  c13$formatted_data$ord_layer_2 (`actual`) not equal to rep(2, 9) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (2, 2, 2, 2, 2, ...)
  ── Failure ('test-count.R:293:3'): set_outer_sort_position works as expected ───
  c14$formatted_data$ord_layer_2 (`actual`) not equal to rep(c(-Inf, 1, 2), 3) (`expected`).
  
  `actual` is NULL
  `expected` is a double vector (-Inf, 1, 2, -Inf, 1, ...)
  ── Error ('test-count.R:331:3'): Total rows and missing counts are displayed correctly(0.1.5 Updates) ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% build() at test-count.R:331:2
    2. ├─Tplyr::build(.)
    3. ├─Tplyr:::build.tplyr_table(.)
    4. │ ├─base::tryCatch(...)
    5. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. │ └─purrr::map(x$layers, process_formatting)
    7. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    8. │     ├─purrr:::with_indexed_errors(...)
    9. │     │ └─base::withCallingHandlers(...)
   10. │     ├─purrr:::call_with_cleanup(...)
   11. │     ├─Tplyr (local) .f(.x[[i]], ...)
   12. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   13. │       ├─Tplyr:::add_order_columns(x)
   14. │       └─Tplyr:::add_order_columns.count_layer(x)
   15. │         └─base::evalq(...)
   16. │           └─base::evalq(...)
   17. │             ├─Tplyr:::get_data_order(current_env(), formatted_col_index)
   18. │             │ └─base::evalq(...)
   19. │             │   └─base::evalq(...)
   20. │             └─Tplyr:::get_data_order_bycount(...)
   21. │               ├─base::`[<-`(`*tmp*`, missing_index, , value = `<dbl>`)
   22. │               └─tibble:::`[<-.tbl_df`(`*tmp*`, missing_index, , value = `<dbl>`)
   23. │                 └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   24. │                   └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   25. │                     ├─base::withCallingHandlers(...)
   26. │                     └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   27. └─base::.handleSimpleError(...)
   28.   └─purrr (local) h(simpleError(msg, call))
   29.     └─cli::cli_abort(...)
   30.       └─rlang::abort(...)
  ── Error ('test-count.R:485:3'): Nested count layers can accept text values in the first variable ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_silent(build(t)) at test-count.R:485: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. ├─Tplyr::build(t)
   10. ├─Tplyr:::build.tplyr_table(t)
   11. │ ├─base::tryCatch(...)
   12. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   13. │ └─purrr::map(x$layers, process_formatting)
   14. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   15. │     ├─purrr:::with_indexed_errors(...)
   16. │     │ └─base::withCallingHandlers(...)
   17. │     ├─purrr:::call_with_cleanup(...)
   18. │     ├─Tplyr (local) .f(.x[[i]], ...)
   19. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   20. │       └─base::evalq(...)
   21. │         └─base::evalq(...)
   22. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   23. │           └─tibble:::`[<-.tbl_df`(...)
   24. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   25. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   26. │                 ├─base::withCallingHandlers(...)
   27. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   28. └─base::.handleSimpleError(...)
   29.   └─purrr (local) h(simpleError(msg, call))
   30.     └─cli::cli_abort(...)
   31.       └─rlang::abort(...)
  ── Error ('test-count.R:531:3'): nested count layers can be built with character value in first position and risk difference ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-count.R:531:2
    2. │ └─base::withCallingHandlers(...)
    3. ├─... %>% build() at test-count.R:532:4
    4. ├─Tplyr::build(.)
    5. ├─Tplyr:::build.tplyr_table(.)
    6. │ ├─base::tryCatch(...)
    7. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    8. │ └─purrr::map(x$layers, process_formatting)
    9. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
   10. │     ├─purrr:::with_indexed_errors(...)
   11. │     │ └─base::withCallingHandlers(...)
   12. │     ├─purrr:::call_with_cleanup(...)
   13. │     ├─Tplyr (local) .f(.x[[i]], ...)
   14. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   15. │       └─base::evalq(...)
   16. │         └─base::evalq(...)
   17. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   18. │           └─tibble:::`[<-.tbl_df`(...)
   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. └─base::.handleSimpleError(...)
   24.   └─purrr (local) h(simpleError(msg, call))
   25.     └─cli::cli_abort(...)
   26.       └─rlang::abort(...)
  ── Error ('test-count.R:558:3'): keep_levels works as expeceted ────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% build() at test-count.R:558:2
    2. ├─Tplyr::build(.)
    3. ├─Tplyr:::build.tplyr_table(.)
    4. │ ├─base::tryCatch(...)
    5. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. │ └─purrr::map(x$layers, process_formatting)
    7. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    8. │     ├─purrr:::with_indexed_errors(...)
    9. │     │ └─base::withCallingHandlers(...)
   10. │     ├─purrr:::call_with_cleanup(...)
   11. │     ├─Tplyr (local) .f(.x[[i]], ...)
   12. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   13. │       └─base::evalq(...)
   14. │         └─base::evalq(...)
   15. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   16. │           └─tibble:::`[<-.tbl_df`(...)
   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. └─base::.handleSimpleError(...)
   22.   └─purrr (local) h(simpleError(msg, call))
   23.     └─cli::cli_abort(...)
   24.       └─rlang::abort(...)
  ── Error ('test-count.R:593:3'): nested count layers can be built with restrictive where logic ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% build() at test-count.R:593:2
    2. ├─Tplyr::build(.)
    3. ├─Tplyr:::build.tplyr_table(.)
    4. │ ├─base::tryCatch(...)
    5. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. │ └─purrr::map(x$layers, process_formatting)
    7. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    8. │     ├─purrr:::with_indexed_errors(...)
    9. │     │ └─base::withCallingHandlers(...)
   10. │     ├─purrr:::call_with_cleanup(...)
   11. │     ├─Tplyr (local) .f(.x[[i]], ...)
   12. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   13. │       └─base::evalq(...)
   14. │         └─base::evalq(...)
   15. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   16. │           └─tibble:::`[<-.tbl_df`(...)
   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. └─base::.handleSimpleError(...)
   22.   └─purrr (local) h(simpleError(msg, call))
   23.     └─cli::cli_abort(...)
   24.       └─rlang::abort(...)
  ── Error ('test-meta.R:10:1'): (code run outside of `test_that()`) ─────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─base::`[<-`(`*tmp*`, c(5, 10, 15, 20, 25, 30), "ANRIND", value = `<chr>`) at test-meta.R:10:0
   2. └─tibble:::`[<-.tbl_df`(...) at test-meta.R:10:0
   3.   └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   4.     └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   5.       ├─base::withCallingHandlers(...)
   6.       └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-sort.R:107:3'): A nested group_count layer can be ordered properly ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: i In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─Tplyr::build(t) at test-sort.R:107:2
    2. ├─Tplyr:::build.tplyr_table(t)
    3. │ ├─base::tryCatch(...)
    4. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. │ └─purrr::map(x$layers, process_formatting)
    6. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │     ├─purrr:::with_indexed_errors(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     ├─purrr:::call_with_cleanup(...)
   10. │     ├─Tplyr (local) .f(.x[[i]], ...)
   11. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   12. │       └─base::evalq(...)
   13. │         └─base::evalq(...)
   14. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   15. │           └─tibble:::`[<-.tbl_df`(...)
   16. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18. │                 ├─base::withCallingHandlers(...)
   19. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   20. └─base::.handleSimpleError(...)
   21.   └─purrr (local) h(simpleError(msg, call))
   22.     └─cli::cli_abort(...)
   23.       └─rlang::abort(...)
  ── Error ('test-sort.R:160:1'): (code run outside of `test_that()`) ────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(x$layers, process_formatting)`: ℹ In index: 1.
  Caused by error in `vectbl_assign()`:
  ! DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─Tplyr::build(adsl1) at test-sort.R:160:0
    2. ├─Tplyr:::build.tplyr_table(adsl1)
    3. │ ├─base::tryCatch(...)
    4. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. │ └─purrr::map(x$layers, process_formatting)
    6. │   └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
    7. │     ├─purrr:::with_indexed_errors(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     ├─purrr:::call_with_cleanup(...)
   10. │     ├─Tplyr (local) .f(.x[[i]], ...)
   11. │     └─Tplyr:::process_formatting.count_layer(.x[[i]], ...)
   12. │       └─base::evalq(...)
   13. │         └─base::evalq(...)
   14. │           ├─base::`[<-`(`*tmp*`, is.na(formatted_data[[1]]), 1, value = `<tibble[,1]>`)
   15. │           └─tibble:::`[<-.tbl_df`(...)
   16. │             └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17. │               └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18. │                 ├─base::withCallingHandlers(...)
   19. │                 └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
   20. └─base::.handleSimpleError(...)
   21.   └─purrr (local) h(simpleError(msg, call))
   22.     └─cli::cli_abort(...)
   23.       └─rlang::abort(...)
  
  [ FAIL 23 | WARN 135 | SKIP 63 | PASS 487 ]
  Error: Test failures
  Execution halted