From 6371c931c7ccfe5de7cb113528a8f2df221f809f Mon Sep 17 00:00:00 2001
From: antononcube <antononcube@posteo.net>
Date: Fri, 10 Dec 2021 11:20:33 -0500
Subject: [PATCH] feat:GridTableForm can be invoked on datasets.

---
 MathematicaForPredictionUtilities.m | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/MathematicaForPredictionUtilities.m b/MathematicaForPredictionUtilities.m
index 1110f59c..eb5dd269 100644
--- a/MathematicaForPredictionUtilities.m
+++ b/MathematicaForPredictionUtilities.m
@@ -446,6 +446,18 @@ Mathematica is (C) Copyright 1988-2016 Wolfram Research, Inc.
       ]
     ];
 
+GridTableForm[ds_Dataset] :=
+    Which[
+      AssociationQ[Normal[ds]] && AssociationQ[Normal[ds][[1]]],
+      GridTableForm[Normal@ds[Values, Values], TableHeadings -> Normal[Keys[ds[[1]]]]],
+
+      ListQ[Normal[ds]] && AssociationQ[Normal[ds][[1]]],
+      GridTableForm[Normal@ds[Values], TableHeadings -> Normal[Keys[ds[[1]]]]],
+
+      True,
+      GridTableForm[Normal@ds]
+    ];
+
 GridTableForm[___] :=
     Block[{},
       Message[GridTableForm::nargs];