Running ‘testthat.R’ [32s/75s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(tidypredict)
  > library(xgboost)
  > library(purrr)
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:xgboost':
  
      slice
  
  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
  
  > library(Cubist)
  Loading required package: lattice
  > library(mlbench)
  > library(rlang)
  
  Attaching package: 'rlang'
  
  The following objects are masked from 'package:purrr':
  
      %@%, as_function, flatten, flatten_chr, flatten_dbl, flatten_int,
      flatten_lgl, flatten_raw, invoke, list_along, modify, prepend,
      splice
  
  The following objects are masked from 'package:testthat':
  
      is_false, is_null, is_true
  
  > library(partykit)
  Loading required package: grid
  Loading required package: libcoin
  Loading required package: mvtnorm
  > library(yaml)
  > 
  > test_check("tidypredict")
  ── 1. Failure: Returns expected case_when() dplyr formula (@test-ranger.R#15)  ─
  rlang::expr_text(tf[[1]]) not equal to "case_when(Petal.Length < 2.45 ~ \"setosa\", Petal.Width < 1.45 & \n    Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Sepal.Length < 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Petal.Length < 4.95 & Petal.Width >= \n        1.45 & Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Petal.Width < 1.75 & Sepal.Length >= 6.55 & Petal.Width >= \n        1.65 & Petal.Length >= 2.45 ~ \"versicolor\", Petal.Width >= \n        1.75 & Sepal.Length >= 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Sepal.Length >= 6.15 & Petal.Length >= \n        4.95 & Petal.Width >= 1.45 & Petal.Width < 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Sepal.Width < 2.45 & Sepal.Length < \n        6.15 & Petal.Length >= 4.95 & Petal.Width >= 1.45 & Petal.Width < \n        1.65 & Petal.Length >= 2.45 ~ \"virginica\", Sepal.Width >= \n        2.45 & Sepal.Length < 6.15 & Petal.Length >= 4.95 & Petal.Width >= \n        1.45 & Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\")".
  1/1 mismatches
  x[1]: "case_when(Petal.Length < 2.6 ~ \"setosa\", Petal.Width >= 1.7 & \n    Sep
  x[1]: al.Length < 6.25 & Petal.Length >= 2.6 ~ \"virginica\", \n    Petal.Length
  x[1]:  >= 5.05 & Sepal.Length >= 6.25 & Petal.Length >= \n        2.6 ~ \"virgin
  x[1]: ica\", Petal.Length < 5.35 & Petal.Width < \n        1.7 & Sepal.Length < 
  x[1]: 6.25 & Petal.Length >= 2.6 ~ \"versicolor\", \n    Petal.Length >= 5.35...
  y[1]: "case_when(Petal.Length < 2.45 ~ \"setosa\", Petal.Width < 1.45 & \n    Pe
  y[1]: tal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Sepal.Leng
  y[1]: th < 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virgi
  y[1]: nica\", Petal.Length < 4.95 & Petal.Width >= \n        1.45 & Petal.Width 
  y[1]: < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Petal.Width < 1.7...
  
  ── 2. Failure: Returns expected case_when() dplyr formula (@test-ranger.R#15)  ─
  rlang::expr_text(tf[[1]]) not equal to "case_when(Petal.Length < 2.45 ~ \"setosa\", Petal.Width < 1.45 & \n    Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Sepal.Length < 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Petal.Length < 4.95 & Petal.Width >= \n        1.45 & Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Petal.Width < 1.75 & Sepal.Length >= 6.55 & Petal.Width >= \n        1.65 & Petal.Length >= 2.45 ~ \"versicolor\", Petal.Width >= \n        1.75 & Sepal.Length >= 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Sepal.Length >= 6.15 & Petal.Length >= \n        4.95 & Petal.Width >= 1.45 & Petal.Width < 1.65 & Petal.Length >= \n        2.45 ~ \"virginica\", Sepal.Width < 2.45 & Sepal.Length < \n        6.15 & Petal.Length >= 4.95 & Petal.Width >= 1.45 & Petal.Width < \n        1.65 & Petal.Length >= 2.45 ~ \"virginica\", Sepal.Width >= \n        2.45 & Sepal.Length < 6.15 & Petal.Length >= 4.95 & Petal.Width >= \n        1.45 & Petal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\")".
  1/1 mismatches
  x[1]: "case_when(Petal.Length < 2.6 ~ \"setosa\", Petal.Width >= 1.7 & \n    Sep
  x[1]: al.Length < 6.25 & Petal.Length >= 2.6 ~ \"virginica\", \n    Petal.Length
  x[1]:  >= 5.05 & Sepal.Length >= 6.25 & Petal.Length >= \n        2.6 ~ \"virgin
  x[1]: ica\", Petal.Length < 5.35 & Petal.Width < \n        1.7 & Sepal.Length < 
  x[1]: 6.25 & Petal.Length >= 2.6 ~ \"versicolor\", \n    Petal.Length >= 5.35...
  y[1]: "case_when(Petal.Length < 2.45 ~ \"setosa\", Petal.Width < 1.45 & \n    Pe
  y[1]: tal.Width < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Sepal.Leng
  y[1]: th < 6.55 & Petal.Width >= 1.65 & Petal.Length >= \n        2.45 ~ \"virgi
  y[1]: nica\", Petal.Length < 4.95 & Petal.Width >= \n        1.45 & Petal.Width 
  y[1]: < 1.65 & Petal.Length >= 2.45 ~ \"versicolor\", \n    Petal.Width < 1.7...
  
  OMP: Warning #96: Cannot form a team with 24 threads, using 2 instead.
  OMP: Hint Consider unsetting KMP_DEVICE_THREAD_LIMIT (KMP_ALL_THREADS), KMP_TEAMS_THREAD_LIMIT, and OMP_THREAD_LIMIT (if any are set).
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 104 SKIPPED: 0 WARNINGS: 0 FAILED: 2
  1. Failure: Returns expected case_when() dplyr formula (@test-ranger.R#15) 
  2. Failure: Returns expected case_when() dplyr formula (@test-ranger.R#15) 
  
  Error: testthat unit tests failed
  Execution halted