modify the example of summarize_oolong, yet another CRAN submission

Author: chainsawriot

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: oolong
 Title: Create Validation Tests for Automated Content Analysis
-Version: 0.3.3
+Version: 0.3.4
 Authors@R: 
     person(given = "Chung-hong",
            family = "Chan",

NEWS.md

@@ -1,3 +1,3 @@
-# oolong 0.3.3
+# oolong 0.3.4
 
 * Initial CRAN version.

R/oolong_summary.R

@@ -104,15 +104,16 @@ summarise_oolong <- function(..., target_value = NULL) {
 #' }
 #' A useful summary of an object can be obtained either by \code{\link{print.oolong_summary}} or \code{\link{plot.oolong_summary}}. For details, please see the overview vignette: \code{vignette("overview", package = "oolong")}
 #' @examples
-#' \donttest{
-#' data(abstracts_stm)
-#' oolong_test1 <- create_oolong(abstracts_stm)
-#' oolong_test2 <- clone_oolong(oolong_test1)
-#' oolong_test1$do_word_intrusion_test()
-#' oolong_test2$do_word_intrusion_test()
-#' oolong_test1$lock()
-#' oolong_test2$lock()
-#' summarize(oolong_test1, oolong_test2)
+#' # Please try this example in interactive R sessions only.
+#' if (interactive()) {
+#'    data(abstracts_stm)
+#'    oolong_test1 <- create_oolong(abstracts_stm)
+#'    oolong_test2 <- clone_oolong(oolong_test1)
+#'    oolong_test1$do_word_intrusion_test()
+#'    oolong_test2$do_word_intrusion_test()
+#'    oolong_test1$lock()
+#'    oolong_test2$lock()
+#'    summarize_oolong(oolong_test1, oolong_test2)
 #' }
 #' @author Chung-hong Chan
 #' @references

cran-comments.md

@@ -1,3 +1,9 @@
+## Resubmission (20-Mar-2020) - version 0.3.4
+
+    functions which are supposed to only run interactively (e.g. shiny) should be wrapped in if(interactive()). Is this the case?
+
+With reference to similar packages (editData etc.), wrapping this example in `if(interactive())` makes more sense. I have done so for the example of `summarize_ooolong`. Thank you very much!
+
 ## Resubmission (16-Mar-2020) - version 0.3.3
 
     Regarding \dontrun in summarize_oolong.Rd:

man/summarize_oolong.Rd

@@ -305,7 +305,7 @@ abstracts_dfm
 
 ``` r
 oolong_test <- create_oolong(abstracts_warplda, abstracts$text, input_dfm = abstracts_dfm)
-#> INFO  [16:02:33.937] early stopping at 50 iteration
+#> INFO  [13:40:42.066] early stopping at 50 iteration
 oolong_test
 #> An oolong test object with k = 20, 0 coded.
 #> Use the method $do_word_intrusion_test() to do word intrusion test.