fix cran

Author: hbaniecki

R/modelStudio.R

@@ -42,7 +42,7 @@
 #' @param eda Compute EDA plots and Residuals vs Feature plot, which adds the data to the dashboard. Default is \code{TRUE}.
 #' @param show_info Verbose a progress on the console. Default is \code{TRUE}.
 #' @param parallel Speed up the computation using \code{parallelMap::parallelMap()}.
-#'  See \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html#parallel-computation}{\bold{vignette}}.
+#'  See \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html#parallel-computation}{\bold{vignette}}.
 #'  This might interfere with showing progress using \code{show_info}.
 #' @param options Customize \code{modelStudio}. See \code{\link{ms_options}} and
 #'  \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html#additional-options-1}{\bold{vignette}}.
@@ -74,8 +74,8 @@
 #' }
 #'
 #' @seealso
-#' Vignettes: \href{https://modeloriented.github.io/modelStudio/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
-#' and \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
+#' Vignettes: \href{https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
+#' and \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
 #'
 #' @examples
 #' library("DALEX")
@@ -98,7 +98,8 @@
 #'
 #' # make a studio for the model
 #' modelStudio(explainer_titanic,
-#'             new_observations)
+#'             new_observations,
+#'             N = 200,  B = 5) # faster example
 #'
 #' \donttest{
 #'

R/ms_options.R

@@ -57,8 +57,8 @@
 #' }
 #'
 #' @seealso
-#' Vignettes: \href{https://modeloriented.github.io/modelStudio/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
-#' and \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
+#' Vignettes: \href{https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
+#' and \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
 #'
 #' @examples
 #' library("DALEX")

R/ms_update_observations.R

@@ -15,7 +15,7 @@
 #'  See \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html#more-calculations-means-more-time}{\bold{vignette}}
 #' @param show_info Verbose a progress on the console. Default is \code{TRUE}.
 #' @param parallel Speed up the computation using \code{parallelMap::parallelMap()}.
-#'  See \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html#parallel-computation}{\bold{vignette}}.
+#'  See \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html#parallel-computation}{\bold{vignette}}.
 #'  This might interfere with showing progress using \code{show_info}.
 #' @param widget_id Use an explicit element ID for the widget (rather than an automatically generated one).
 #'  Useful e.g. when using \code{modelStudio} with Shiny.
@@ -37,8 +37,8 @@
 #' }
 #'
 #' @seealso
-#' Vignettes: \href{https://modeloriented.github.io/modelStudio/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
-#' and \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
+#' Vignettes: \href{https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
+#' and \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
 #'
 #' @examples
 #' library("DALEX")
@@ -53,7 +53,8 @@
 #'                              y = titanic_imputed$survived)
 #'
 #' # make a studio for the model
-#' ms <- modelStudio(explainer_titanic)
+#' ms <- modelStudio(explainer_titanic,
+#'                   N = 200,  B = 5) # faster example
 #'
 #' \donttest{
 #'

R/ms_update_options.R

@@ -23,8 +23,8 @@
 #' }
 #'
 #' @seealso
-#' Vignettes: \href{https://modeloriented.github.io/modelStudio/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
-#' and \href{https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
+#' Vignettes: \href{https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html}{\bold{modelStudio - R & Python examples}}
+#' and \href{https://modelstudio.drwhy.ai/articles/ms-perks-features.html}{\bold{modelStudio - perks and features}}
 #'
 #' @examples
 #' library("DALEX")
@@ -39,7 +39,8 @@
 #'                              y = titanic_imputed$survived)
 #'
 #' # make a studio for the model
-#' ms <- modelStudio(explainer_titanic)
+#' ms <- modelStudio(explainer_titanic,
+#'                   N = 200,  B = 5) # faster example
 #'
 #' # update the options
 #' new_ms <- ms_update_options(ms,

README.md

@@ -53,11 +53,11 @@ explainer <- explain(model,
 modelStudio(explainer)
 ```
 
-[Save the output](http://modelstudio.drwhy.ai/#save--share) in the form of a HTML file - [**Demo Dashboard**](https://modeloriented.github.io/modelStudio/demo.html).
+[Save the output](http://modelstudio.drwhy.ai/#save--share) in the form of a HTML file - [**Demo Dashboard**](https://modelstudio.drwhy.ai/demo.html).
 
 ![](man/figures/long.gif)
 
-## R & Python Examples [more](http://modelstudio.drwhy.ai/articles/ms-r-python-examples.html)
+## R & Python Examples [more](https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html)
 
 -------------------------------
 
@@ -69,7 +69,7 @@ install.packages("DALEX")
 install.packages("DALEXtra")
 ```
 
-### mlr [dashboard](https://modeloriented.github.io/modelStudio/mlr.html)
+### mlr [dashboard](https://modelstudio.drwhy.ai/mlr.html)
 
 Make a studio for the regression `ranger` model on `apartments` data.
 
@@ -111,7 +111,7 @@ modelStudio(explainer,
 
 </details>
 
-### xgboost [dashboard](https://modeloriented.github.io/modelStudio/xgboost.html)
+### xgboost [dashboard](https://modelstudio.drwhy.ai/xgboost.html)
 
 Make a studio for the classification `xgboost` model on `titanic` data.
 
@@ -173,7 +173,7 @@ Use `pickle` Python module and `reticulate` R package to easily make a studio fo
 install.packages("reticulate")
 ```
 
-### scikit-learn [dashboard](https://modeloriented.github.io/modelStudio/scikitlearn.html)
+### scikit-learn [dashboard](https://modelstudio.drwhy.ai/scikitlearn.html)
 
 Make a studio for the regression `Pipeline SVR` model on `fifa` data.
 
@@ -224,7 +224,7 @@ modelStudio(explainer, B = 5,
 
 </details>
 
-### lightgbm [dashboard](https://modeloriented.github.io/modelStudio/lightgbm.html)
+### lightgbm [dashboard](https://modelstudio.drwhy.ai/lightgbm.html)
 
 Make a studio for the classification `Pipeline LGBMClassifier` model on `titanic` data.
 
@@ -339,9 +339,9 @@ If you use `modelStudio`, please cite our [JOSS article](https://joss.theoj.org/
 
   - Theoretical introduction to the plots: [Explanatory Model Analysis: Explore, Explain and Examine Predictive Models](https://pbiecek.github.io/ema)
 
-  - Vignettes: [modelStudio - perks and features](https://modeloriented.github.io/modelStudio/articles/ms-perks-features.html) and [modelStudio - R & Python examples](https://modeloriented.github.io/modelStudio/articles/ms-r-python-examples.html)  
+  - Vignettes: [modelStudio - perks and features](https://modelstudio.drwhy.ai/articles/ms-perks-features.html) and [modelStudio - R & Python examples](https://modelstudio.drwhy.ai/articles/ms-r-python-examples.html)  
 
-  - Changelog: [NEWS](https://modeloriented.github.io/modelStudio/news/index.html)
+  - Changelog: [NEWS](https://modelstudio.drwhy.ai/news/index.html)
 
   - Conference poster: [MLinPL2019](https://github.com/ModelOriented/modelStudio/blob/master/misc/MLinPL2019_modelStudio_poster.pdf)
 

man/modelStudio.Rd

@@ -40,7 +40,8 @@ testthat::expect_true(!isTRUE(case1$x$options$telemetry))
 case2 <- testthat::expect_silent(
   modelStudio::modelStudio(exp_fifa, data_fifa[1:2,],
                            max_vars = 5, rounding_funtion = signif,
-                           digits = 3, show_info = v))
+                           digits = 3,
+                           N = 5, B = 2, show_info = v))
 testthat::expect_true(
   all(c("mse:", "rmse:", "r2:", "mad:") %in%
         strsplit(case2$x$options$measure_text, split=" ")[[1]]))