Merge pull request #513 from cynkra/f-488-construct_clip

construct_clip respects non default print modes
cynkra · Dec 31, 2024 · 34334fb · 34334fb
2 parents 75788a0 + 0f59694
commit 34334fb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/construct.R b/R/construct.R
@@ -284,9 +284,8 @@ print.constructive <- function(
 
   if ("clipboard" %in% print_mode) {
     check_installed("clipr")
-    cli::cli_alert_info("Construct code has been added to the clipboard:")
+    cli::cli_alert_info("Code has been added to the clipboard")
     clipr::write_clip(paste(x$code, collapse = "\n"), "character")
-    print_mode <- union(print_mode, "console")
   }
   if ("console" %in% print_mode) {
     print(x$code)

diff --git a/R/construct_clip.R b/R/construct_clip.R
@@ -39,5 +39,5 @@ construct_clip <- function(
     template = template,
     classes = classes
   )
-  print(out, print_mode = "clipboard")
+  print(out, print_mode = union("clipboard", getOption("constructive_print_mode", "console")))
 }
diff --git a/man/constructive-package.Rd b/man/constructive-package.Rd