From 2153a9041148b4f76c496501ebe72bd90b30bbdc Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Sat, 3 Feb 2024 20:16:36 +0100
Subject: [PATCH] less noisy fun()

---
 R/peek.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/peek.R b/R/peek.R
index 8d050ce..40d04b1 100644
--- a/R/peek.R
+++ b/R/peek.R
@@ -32,7 +32,9 @@ fun <- function(what) {
   call[[1L]] <- quote(trace)
   call$where <- topenv(parent.frame())
   call$tracer <- informant
-  eval.parent(call)
+  suppressMessages(eval.parent(call))
+
+  invisible()
 }
 
 #' Peek all functions from a package