Running ‘testthat.R’ [52s/82s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(mikropml)
  > test_check("mikropml")
  Fraction of data in the training set: 0.778 
  	Groups in the training set: A C D 
  	Groups in the testing set: B
  Fraction of data in the training set: 0.778 
  	Groups in the training set: A C D 
  	Groups in the testing set: B
  Fraction of data in the training set: 0.333 
  	Groups in the training set: A D 
  	Groups in the testing set: A B C D
  Fraction of data in the training set: 0.785 
  	Groups in the training set: A B E F G H 
  	Groups in the testing set: C D
  Fraction of data in the training set: 0.2 
  	Groups in the training set: A B 
  	Groups in the testing set: A B C D E F G H
  Using 'dx' as the outcome column.
  Using 'dx' as the outcome column.
  Using 'dx' as the outcome column.
  Using 'y' as the outcome column.
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  Using 'dx' as the outcome column.
  Groups will not be kept together in CV partitions because the number of groups in the training set is not larger than `kfold`
  Training the model...
  Training complete.
  Fraction of data in the training set: 0.785 
  	Groups in the training set: A B E F G H 
  	Groups in the testing set: C D
  Using 'dx' as the outcome column.
  Using 'dx' as the outcome column.
  [ FAIL 2 | WARN 23 | SKIP 12 | PASS 281 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (12)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-preprocess.R:21:3'): preprocess_data works ─────────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% suppressMessages() at test-preprocess.R:21:2
    2. ├─base::suppressMessages(.)
    3. │ └─base::withCallingHandlers(...)
    4. ├─testthat::expect_message(...)
    5. │ └─testthat:::expect_condition_matching(...)
    6. │   └─testthat:::quasi_capture(...)
    7. │     ├─testthat (local) .capture(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─testthat::expect_equal(...)
   11. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   12. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   13. └─mikropml::preprocess_data(test_df, "outcome", prefilter_threshold = -1)
   14.   └─mikropml:::process_cat_feats(nv_feats$var_feats, progbar = progbar)
   15.     ├─base::`[<-`(`*tmp*`, missing, value = `<dbl>`)
   16.     └─tibble:::`[<-.tbl_df`(`*tmp*`, missing, value = `<dbl>`)
   17.       └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   18.         ├─base::withCallingHandlers(...)
   19.         └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  ── Error ('test-preprocess.R:418:3'): process_cat_feats works ──────────────────
  Error in `vectbl_assign(x[[j]], cells[[j]], value)`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% suppressMessages() at test-preprocess.R:418:2
    2. ├─base::suppressMessages(.)
    3. │ └─base::withCallingHandlers(...)
    4. ├─testthat::expect_message(...)
    5. │ └─testthat:::expect_condition_matching(...)
    6. │   └─testthat:::quasi_capture(...)
    7. │     ├─testthat (local) .capture(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─testthat::expect_equal(...)
   11. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   12. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   13. └─mikropml:::process_cat_feats(test_df[1:3, c(2:5, 8:11)])
   14.   ├─base::`[<-`(`*tmp*`, missing, value = `<dbl>`)
   15.   └─tibble:::`[<-.tbl_df`(`*tmp*`, missing, value = `<dbl>`)
   16.     └─tibble:::tbl_subassign_matrix(x, j, value, j_arg, substitute(value))
   17.       ├─base::withCallingHandlers(...)
   18.       └─tibble:::vectbl_assign(x[[j]], cells[[j]], value)
  
  [ FAIL 2 | WARN 23 | SKIP 12 | PASS 281 ]
  Error: Test failures
  Execution halted