From 97442e203ca10d12646924fc7eb0ec19e161bc15 Mon Sep 17 00:00:00 2001
From: olivroy <52606734+olivroy@users.noreply.github.com>
Date: Tue, 13 Feb 2024 18:09:37 -0500
Subject: [PATCH] Only show first class

---
 R/friendly-type.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/friendly-type.R b/R/friendly-type.R
index 12fddf4f1..2333e11ce 100644
--- a/R/friendly-type.R
+++ b/R/friendly-type.R
@@ -23,7 +23,7 @@ friendly_type <- function(x, value = TRUE, length = FALSE) {
       } else {
         "a"
       }
-      return(paste0(prop, " {.cls {class(x)}} object"))
+      return(paste0(prop, " {.cls {class(x)[1]}} object"))
     }
   }