From 09f74df43c58a7240fa88de7b427e6d70e28c014 Mon Sep 17 00:00:00 2001
From: Jouni Helske <jouni.helske@jyu.fi>
Date: Tue, 29 Dec 2015 17:55:57 +0200
Subject: [PATCH] more changes from dontrun to interactive

---
 R/mhmm_biofam.R    | 6 +++---
 R/mhmm_mvad.R      | 6 +++---
 R/mssplot.R        | 6 +++---
 man/mhmm_biofam.Rd | 6 +++---
 man/mhmm_mvad.Rd   | 6 +++---
 man/mssplot.Rd     | 6 +++---
 6 files changed, 18 insertions(+), 18 deletions(-)

diff --git a/R/mhmm_biofam.R b/R/mhmm_biofam.R
index 1fd458f1..c5fce0e0 100644
--- a/R/mhmm_biofam.R
+++ b/R/mhmm_biofam.R
@@ -154,9 +154,9 @@
 #' # (these are considerebly slower to compute)
 #' summary(mhmm_biofam$model)
 #'
-#' \dontrun{
-#' # Plotting the model for each cluster (change with Enter)
-#' plot(mhmm_biofam)
+#' if (interactive()) {
+#'   # Plotting the model for each cluster (change with Enter)
+#'   plot(mhmm_biofam)
 #' }
 #'
 NULL
diff --git a/R/mhmm_mvad.R b/R/mhmm_mvad.R
index 3ca773d6..c2407673 100644
--- a/R/mhmm_mvad.R
+++ b/R/mhmm_mvad.R
@@ -79,9 +79,9 @@
 #'
 #' summary(mhmm_mvad)
 #'
-#' \dontrun{
-#' # Plotting the model for each cluster (change with Enter)
-#' plot(mhmm_mvad)
+#' if (interactive()) {
+#'   # Plotting the model for each cluster (change with Enter)
+#'   plot(mhmm_mvad)
 #' }
 #'
 NULL
diff --git a/R/mssplot.R b/R/mssplot.R
index 21e8310e..897a46ad 100644
--- a/R/mssplot.R
+++ b/R/mssplot.R
@@ -154,9 +154,9 @@
 #' # Plotting the first cluster only
 #' mssplot(mhmm_biofam, which.plots = 1)
 #'
-#' \dontrun{
-#' # Interactive plot
-#' mssplot(mhmm_biofam)
+#' if (interactive()) {
+#'   # Interactive plot
+#'   mssplot(mhmm_biofam)
 #' }
 #'
 #'
diff --git a/man/mhmm_biofam.Rd b/man/mhmm_biofam.Rd
index 6ba9a742..9d579899 100644
--- a/man/mhmm_biofam.Rd
+++ b/man/mhmm_biofam.Rd
@@ -150,9 +150,9 @@ data("mhmm_biofam")
 # (these are considerebly slower to compute)
 summary(mhmm_biofam$model)
 
-\dontrun{
-# Plotting the model for each cluster (change with Enter)
-plot(mhmm_biofam)
+if (interactive()) {
+  # Plotting the model for each cluster (change with Enter)
+  plot(mhmm_biofam)
 }
 
 }
diff --git a/man/mhmm_mvad.Rd b/man/mhmm_mvad.Rd
index 84d6a768..37701e8a 100644
--- a/man/mhmm_mvad.Rd
+++ b/man/mhmm_mvad.Rd
@@ -76,9 +76,9 @@ data("mhmm_mvad")
 
 summary(mhmm_mvad)
 
-\dontrun{
-# Plotting the model for each cluster (change with Enter)
-plot(mhmm_mvad)
+if (interactive()) {
+  # Plotting the model for each cluster (change with Enter)
+  plot(mhmm_mvad)
 }
 
 }
diff --git a/man/mssplot.Rd b/man/mssplot.Rd
index f5a7516a..ede41fc3 100644
--- a/man/mssplot.Rd
+++ b/man/mssplot.Rd
@@ -166,9 +166,9 @@ data("mhmm_biofam")
 # Plotting the first cluster only
 mssplot(mhmm_biofam, which.plots = 1)
 
-\dontrun{
-# Interactive plot
-mssplot(mhmm_biofam)
+if (interactive()) {
+  # Interactive plot
+  mssplot(mhmm_biofam)
 }