Running ‘testthat.R’ [7s/10s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(mde)
  Welcome to mde. This is mde version 0.3.2.
   Please file issues and feedback at https://www.github.com/Nelson-Gon/mde/issues
  Turn this message off using 'suppressPackageStartupMessages(library(mde))'
   Happy Exploration :)
  > 
  > test_check("mde")
  Saving _problems/test_drop_all_na-16.R
  Saving _problems/test_drop_na_if-39.R
  Dropped 2 rows.
  Dropped 2 rows.
  Dropped 2 rows.
  [ FAIL 2 | WARN 4 | SKIP 15 | PASS 105 ]
  
  ══ Skipped tests (15) ══════════════════════════════════════════════════════════
  • On CRAN (15): 'test_custom_na_recode.R:1:1', 'test_dict_recode.R:1:1',
    'test_drop_na_at.R:1:1', 'test_drop_row_if.R:1:1',
    'test_get_na_counts.R:1:1', 'test_na_summary.R:1:1',
    'test_percent_missing.R:1:1', 'test_recode_as_na.R:1:1',
    'test_recode_as_na_for.R:1:1', 'test_recode_as_na_if.R:1:1',
    'test_recode_as_na_str.R:21:1', 'test_recode_as_value.R:1:1',
    'test_recode_na_as.R:1:1', 'test_recode_na_if.R:2:1',
    'test_sorting_missingness.R:1:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_drop_all_na.R:16:13'): drop_all_na errors on absent columns ────
  Error in `dplyr::filter(., dplyr::across(everything(), ~!all_na(.)))`: i In argument: `dplyr::across(everything(), ~!all_na(.))`.
  i In group 1: `ID = "A"`.
  Caused by error:
  ! `..1` must be a logical vector, not a <tbl_df/tbl/data.frame> object.
  i If you used `across()` to generate this data frame, please use `if_any()` or `if_all()` instead.
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test_drop_all_na.R:16:13
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(drop_all_na(test, grouping_cols = "ID"))
    5. ├─mde::drop_all_na(test, grouping_cols = "ID")
    6. ├─mde:::drop_all_na.data.frame(test, grouping_cols = "ID")
    7. │ └─... %>% dplyr::ungroup()
    8. ├─dplyr::ungroup(.)
    9. ├─dplyr::filter(., dplyr::across(everything(), ~!all_na(.)))
   10. ├─dplyr:::filter.data.frame(., dplyr::across(everything(), ~!all_na(.)))
   11. │ └─dplyr:::filter_impl(...)
   12. │   └─dplyr:::filter_rows(...)
   13. │     └─dplyr:::filter_eval(...)
   14. │       ├─base::withCallingHandlers(...)
   15. │       └─mask$eval_all_filter(dots_expanded, invert, env_filter)
   16. │         └─dplyr (local) eval()
   17. ├─dplyr:::dplyr_internal_error(...)
   18. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   19. │   └─rlang:::signal_abort(cnd, .file)
   20. │     └─base::signalCondition(cnd)
   21. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   22.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  ── Error ('test_drop_na_if.R:37:15'): drop_na_if errors as expected ────────────
  Error in `dplyr::filter(., dplyr::across(dplyr::everything(), ~!switches(mean(is.na(.)) * 100, sign = sign, percent_na = percent_na)))`: i In argument: `dplyr::across(...)`.
  i In group 1: `ID = "A"`.
  Caused by error:
  ! `..1` must be a logical vector, not a <tbl_df/tbl/data.frame> object.
  i If you used `across()` to generate this data frame, please use `if_any()` or `if_all()` instead.
  Backtrace:
       ▆
    1. ├─mde::drop_na_if(grouped_drop, percent_na = 67, grouping_cols = "ID") at test_drop_na_if.R:37:15
    2. ├─mde:::drop_na_if.data.frame(grouped_drop, percent_na = 67, grouping_cols = "ID")
    3. │ └─... %>% dplyr::ungroup()
    4. ├─dplyr::ungroup(.)
    5. ├─dplyr::filter(...)
    6. ├─dplyr:::filter.data.frame(...)
    7. │ └─dplyr:::filter_impl(...)
    8. │   └─dplyr:::filter_rows(...)
    9. │     └─dplyr:::filter_eval(...)
   10. │       ├─base::withCallingHandlers(...)
   11. │       └─mask$eval_all_filter(dots_expanded, invert, env_filter)
   12. │         └─dplyr (local) eval()
   13. ├─dplyr:::dplyr_internal_error(...)
   14. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
   15. │   └─rlang:::signal_abort(cnd, .file)
   16. │     └─base::signalCondition(cnd)
   17. └─dplyr (local) `<fn>`(`<dpl:::__>`)
   18.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
  
  [ FAIL 2 | WARN 4 | SKIP 15 | PASS 105 ]
  Error:
  ! Test failures.
  Execution halted