Make it possible to opt-in to original display

rstudio · Feb 1, 2024 · 3cf26cd · 3cf26cd
1 parent d2d2faa
commit 3cf26cd
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 14 deletions.
diff --git a/R/chromote.R b/R/chromote.R
@@ -346,14 +346,19 @@ Chromote <- R6Class(
 
     #' @description Summarise the current state of the object.
     #' @param ... Ignored
-    print = function(...) {
-      state <- if (private$is_active_) "active" else "closed"
-      ps <- self$get_browser()$get_process()
-
-      cat_line("<Chromote> (", state, ")")
-      cat_line("  URL:  ", self$url())
-      cat_line("  PID:  ", ps$get_pid())
-      cat_line("  Path: ", ps$get_cmdline()[[1]])
+    print = function(..., verbose = FALSE) {
+      if (verbose) {
+        cat(format(self, ...), sep = "\n")
+      } else {
+        state <- if (private$is_active_) "active" else "closed"
+        ps <- self$get_browser()$get_process()
+
+        cat_line("<Chromote> (", state, ")")
+        cat_line("  URL:  ", self$url())
+        cat_line("  PID:  ", ps$get_pid())
+        cat_line("  Path: ", ps$get_cmdline()[[1]])
+      }
+      invisible(self)
     },
 
     #' @field default_timeout Default timeout in seconds for \pkg{chromote} to

diff --git a/R/chromote_session.R b/R/chromote_session.R
@@ -559,13 +559,18 @@ ChromoteSession <- R6Class(
 
     #' @description Summarise the current state of the object.
     #' @param ... Ignored
-    print = function(...) {
-      state <- if (private$is_active_) "active" else "closed"
+    print = function(..., verbose = FALSE) {
+      if (verbose) {
+        cat(format(self, ...), sep = "\n")
+      } else {
+        state <- if (private$is_active_) "active" else "closed"
 
-      cat_line("<ChromoteSession> (", state, ")")
-      cat_line("  Session ID: ", self$get_session_id())
-      cat_line("  Target ID:  ", self$get_target_id())
-      cat_line("  Parent PID: ", self$parent$get_browser()$get_process()$get_pid())
+        cat_line("<ChromoteSession> (", state, ")")
+        cat_line("  Session ID: ", self$get_session_id())
+        cat_line("  Target ID:  ", self$get_target_id())
+        cat_line("  Parent PID: ", self$parent$get_browser()$get_process()$get_pid())
+      }
+      invisible(self)
     },
 
     #' @field parent [`Chromote`] object