do not print clipboard contents on return

mdlincoln · Sep 2, 2015 · 54e7886 · 54e7886
1 parent c92b8f0
commit 54e7886
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/clipboard.R b/R/clipboard.R
@@ -41,7 +41,7 @@ read_clip <- function() {
 #' @return On successfully writing the input to the clipboard, this function
 #'   returns the same input for use in piped operations.
 #' @export
-write_clip <- function(content, sep = NULL, eos = NULL) {
+write_clip <- function(content, sep = NULL, eos = NULL) invisible({
   # Determine system type
   sys.type <- sys_type()
   # Initialise an empty list to pass options on to OS-specific functions
@@ -60,4 +60,4 @@ write_clip <- function(content, sep = NULL, eos = NULL) {
 
   # Supply the clipboard content to write and options list to this function
   chosen_write_clip(content, wc.opts)
-}
+})