new tests

Author: hbaniecki

.github/workflows/R-CMD-check.yaml

@@ -45,6 +45,7 @@ jobs:
           - {os: windows-latest, r: '4.0'}
           - {os: windows-latest, r: '3.6'}
           # - {os: windows-latest, r: '3.5'}
+          - {os: ubuntu-16.04, r: '4.1', rspm: "https://demo.rstudiopm.com/all/__linux__/xenial/latest"}
           - {os: ubuntu-16.04, r: '4.0', rspm: "https://demo.rstudiopm.com/all/__linux__/xenial/latest"}
           - {os: ubuntu-16.04, r: '3.6', rspm: "https://demo.rstudiopm.com/all/__linux__/xenial/latest"}
           # - {os: ubuntu-16.04, r: '3.5', rspm: "https://demo.rstudiopm.com/all/__linux__/xenial/latest"}

tests/testthat/test_3_0.R

@@ -0,0 +1,20 @@
+context("Test v3.0.0")
+
+set.seed(1313)
+v <- FALSE
+
+model <- glm(survived ~., data = DALEX::titanic_imputed, family = "binomial")
+
+explainer <- DALEX::explain(model,
+                            data = DALEX::titanic_imputed,
+                            y = DALEX::titanic_imputed$survived,
+                            verbose = v)
+
+testthat::test_that("N_sv, verbose parameters", {
+  ms1 <- testthat::expect_silent(
+    modelStudio::modelStudio(explainer,
+                             N_sv = 200, B = 2,
+                             verbose = v)
+  )
+  testthat::expect_is(ms1, "r2d3")
+})

tests/testthat/test_modelStudio.R

@@ -28,7 +28,7 @@ ms_readme <-  testthat::expect_silent(modelStudio::modelStudio(explain_titanic_g
                                                                new_observations,
                                                                facet_dim = c(2,2),
                                                                N = N, B = B, time = 0,
-                                                               verbose = v))
+                                                               show_info = v))
 
 ms_rf_apartments <- testthat::expect_silent(modelStudio::modelStudio(explain_rf,
                                                                      new_observation = apartments[1:2,-1],

tests/testthat/test_warnings_and_errors.R

@@ -27,6 +27,12 @@ if (requireNamespace("xgboost", quietly=TRUE)) {
 #     ms <- modelStudio::modelStudioOptions()
 #   )
 # })
+testthat::test_that("removed modelStudioOptions", {
+  testthat::expect_error(
+    ms <- modelStudio::modelStudioOptions()
+  )
+})
+
 
 if (requireNamespace("ranger", quietly=TRUE)) {
   ms <- modelStudio::modelStudio(explain_rf, apartments[1:2,], N = 5, B = 2, show_info = v)