From aa26198a06c1a3b6a7307f719c29c4886c791d0b Mon Sep 17 00:00:00 2001
From: hbaniecki <hbaniecki@gmail.com>
Date: Fri, 8 May 2020 20:50:43 +0200
Subject: [PATCH] fix long examples

---
 R/ms_update_observations.R    | 4 +++-
 man/ms_update_observations.Rd | 6 ++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/R/ms_update_observations.R b/R/ms_update_observations.R
index 4b5f9d6..cb5bc87 100644
--- a/R/ms_update_observations.R
+++ b/R/ms_update_observations.R
@@ -51,6 +51,8 @@
 #' # make a studio for the model
 #' ms <- modelStudio(explainer_titanic)
 #'
+#' \donttest{
+#'
 #' # add new observations
 #' ms <- ms_update_observations(ms,
 #'                              explainer_titanic,
@@ -58,7 +60,7 @@
 #'                              new_observation_y = titanic_imputed$survived[100:101])
 #' ms
 #'
-#' \donttest{
+#'
 #'
 #' # overwrite the observations with new ones
 #' ms <- ms_update_observations(ms,
diff --git a/man/ms_update_observations.Rd b/man/ms_update_observations.Rd
index 521e1d1..8581247 100644
--- a/man/ms_update_observations.Rd
+++ b/man/ms_update_observations.Rd
@@ -66,6 +66,8 @@ explainer_titanic <- explain(model_titanic,
 # make a studio for the model
 ms <- modelStudio(explainer_titanic)
 
+\donttest{
+
 # add new observations
 ms <- ms_update_observations(ms,
                              explainer_titanic,
@@ -73,6 +75,8 @@ ms <- ms_update_observations(ms,
                              new_observation_y = titanic_imputed$survived[100:101])
 ms
 
+
+
 # overwrite the observations with new ones
 ms <- ms_update_observations(ms,
                              explainer_titanic,
@@ -80,6 +84,8 @@ ms <- ms_update_observations(ms,
                              overwrite = TRUE)
 ms
 
+}
+
 }
 \references{
 \itemize{