Running 'testthat.R' [8s/9s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(localModel)
  > library(DALEX)
  Welcome to DALEX (version: 0.4.7).
  Find examples and detailed introduction at: https://pbiecek.github.io/PM_VEE/
  
  > library(randomForest)
  randomForest 4.6-14
  Type rfNews() to see new features/changes/bug fixes.
  > 
  > data('HR')
  > data('apartments')
  > 
  > m_rf_hr <- randomForest(status ~., data = HR[1:500, ], ntree = 10)
  > m_rf_ap <- randomForest(m2.price ~., data = apartments[1:500, ], ntree = 10)
  > 
  > hr_explainer <- explain(m_rf_hr, HR[1:500, ])
  Preparation of a new explainer is initiated
    -> model label       :  randomForest  ([33mdefault[39m)
    -> data              :  500  rows  6  cols 
    -> target variable   :  not specified! ([31mWARNING[39m)
    -> predict function  :  yhat.randomForest  will be used ([33mdefault[39m)
    -> predicted values  :  numerical, min =  0 , mean =  0.3333333 , max =  1  
    -> residual function :  difference between y and yhat ([33mdefault[39m)
  [32mA new explainer has been created![39m
  Warning message:
  In if (class(y_hat) == "try-error") { :
    the condition has length > 1 and only the first element will be used
  > ap_explainer <- explain(m_rf_ap, apartments[1:500, ])
  Preparation of a new explainer is initiated
    -> model label       :  randomForest  ([33mdefault[39m)
    -> data              :  500  rows  6  cols 
    -> target variable   :  not specified! ([31mWARNING[39m)
    -> predict function  :  yhat.randomForest  will be used ([33mdefault[39m)
    -> predicted values  :  numerical, min =  1986.878 , mean =  3486.709 , max =  5617.507  
    -> residual function :  difference between y and yhat ([33mdefault[39m)
  [32mA new explainer has been created![39m
  > 
  > local_model_explainer_hr <- individual_surrogate_model(hr_explainer,
  +                                                        HR[5, -6],
  +                                                        size = 50,
  +                                                        seed = 17)
  > local_model_explainer_ap <- individual_surrogate_model(ap_explainer,
  +                                                        apartments[5, -1],
  +                                                        size = 50,
  +                                                        seed = 17)
  > 
  > test_check("localModel")
  -- 1. Failure: Plots work with different geoms (@test_generic.R#7)  ------------
  `{ ... }` produced messages.
  
  == testthat results  ===========================================================
  [ OK: 12 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 1 ]
  1. Failure: Plots work with different geoms (@test_generic.R#7) 
  
  Error: testthat unit tests failed
  Execution halted