fix CRAN tests

Author: hbaniecki

NEWS.md

@@ -1,3 +1,6 @@
+# modelStudio 1.0.1
+* fix `devel-fedora` tests for cran
+
 # modelStudio 1.0.0
 * stable release after fixing minor issues
 * comply with `R v4.0` changes

R/modelStudio.R

@@ -21,11 +21,11 @@
 #' @param parallel Speed up the computation using \code{parallelMap::parallelMap()}.
 #' See \href{https://modeloriented.github.io/modelStudio/articles/vignette_modelStudio.html#parallel-computation}{\bold{vignette}}.
 #' This might interfere with showing progress using \code{show_info}.
+#' @param options Customize \code{modelStudio}. See \code{\link{modelStudioOptions}} and
+#' \href{https://modeloriented.github.io/modelStudio/articles/vignette_modelStudio.html#plot-options}{\bold{vignette}}.
 #' @param viewer Default is \code{external} to display in an external RStudio window.
 #' Use \code{browser} to display in an external browser or
 #' \code{internal} to use the RStudio internal viewer pane for output.
-#' @param options Customize \code{modelStudio}. See \code{\link{modelStudioOptions}} and
-#' \href{https://modeloriented.github.io/modelStudio/articles/vignette_modelStudio.html#plot-options}{\bold{vignette}}.
 #' @param ... Other parameters.
 #'
 #' @return An object of the \code{r2d3} class.

docs/articles/vignette_modelStudio.html

@@ -1,3 +1,5 @@
+context("Objects for tests")
+
 titanic <- na.omit(DALEX::titanic)
 apartments <- DALEX::apartments
 set.seed(1313)
@@ -7,15 +9,15 @@ v <- FALSE
 
 # Create a model
 model_titanic_glm <- glm(survived ~.,
-             data = titanic_imputed,
+             data = DALEX::titanic_imputed,
              family = "binomial")
 
 # Wrap it into an explainer
-explain_titanic_glm <- explain(model_titanic_glm,
-                     data = titanic_imputed[,-8],
-                     y = titanic_imputed[,8],
-                     label = "Titanic GLM",
-                     verbose = v)
+explain_titanic_glm <- DALEX::explain(model_titanic_glm,
+                                      data = DALEX::titanic_imputed[,-8],
+                                      y = DALEX::titanic_imputed[,8],
+                                      label = "Titanic GLM",
+                                      verbose = v)
 
 # Pick some data points
 new_observations <- titanic_imputed[1:4,]