Merge pull request #669 from olivroy/patch-1

Only show first class in {.obj_type_friendly}

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"))
     }
   }