From 1b5bab247088af75e85760f54722f624b82e219b Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@rstudio.com>
Date: Thu, 14 May 2020 14:05:53 +0200
Subject: [PATCH] restore all the classes on [.describe

---
 R/describe.s | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/describe.s b/R/describe.s
index bef1f8ea..27aaf0d1 100644
--- a/R/describe.s
+++ b/R/describe.s
@@ -528,7 +528,7 @@ print.describe.single <-
   object <- '['(unclass(object),i)
   structure(object, descript=at$descript,
             dimensions=c(at$dimensions[1], length(object)),
-            class='describe')
+            class=class(object))
 }