Added inspector views to DataFrame

Author: olekscode

DataFrame-Core.package/DataFrame.class/instance/gtInspectorBoxplotIn..st

@@ -0,0 +1,8 @@
+as yet unclassified
+gtInspectorBoxplotIn: composite
+	<gtInspectorPresentationOrder: 0>
+	<gtInspectorTag: #basic>
+	
+	composite roassal2
+		title: 'Boxplots';
+		initializeView: [ self boxplot ]

DataFrame-Core.package/DataFrame.class/instance/gtInspectorDataFrameIn..st

@@ -0,0 +1,8 @@
+as yet unclassified
+gtInspectorDataFrameIn: composite
+	<gtInspectorPresentationOrder: 0>
+	<gtInspectorTag: #basic>
+	
+	composite morph
+		title: 'DataFrame';
+		display: [ self showWithGlamour ]

DataFrame-Core.package/DataFrame.class/instance/gtInspectorItemsIn..st

@@ -0,0 +1,6 @@
+gt-inspector-extension
+gtInspectorItemsIn: composite
+"Hiding Items tab from inspector"
+
+	^ (composite fastList)
+		when: [ false ].

DataFrame-Core.package/DataFrame.class/instance/gtInspectorPrettyPrintIn..st

@@ -0,0 +1,12 @@
+as yet unclassified
+gtInspectorPrettyPrintIn: composite
+	<gtInspectorPresentationOrder: 1>
+	<gtInspectorTag: #basic>
+	
+	composite text
+		title: 'PrettyPrint';
+		display: [ 
+			| stream |
+			stream := String new writeStream.
+			DataPrettyPrinter new print: self on: stream.
+			stream contents ]

DataFrame-Core.package/DataFrame.class/instance/printOn..st

@@ -1,44 +1,4 @@
 printing
 printOn: aStream
 
-	DataPrettyPrinter new print: self on: aStream.
-
-	"( self numberOfRows = 0 )
-		ifTrue: [ super printOn: aStream. 
-					aStream nextPutAll:' uninitialized'. ^ self ].
-	
-	aStream nextPutAll: '['.
-	self columnNames
-		do: [ :each | aStream nextPutAll: each asString ]
-		separatedBy: [ aStream space ].
-	aStream nextPutAll: ']'; cr.
-				
-	1 to: self numberOfRows - 1 do: [ :i  |
-		(self rowNames at: i) printOn: aStream.
-		aStream tab.
-		
-		1 to: self numberOfColumns - 1 do: [ :j |
-			(self at: i at: j) printOn: aStream.
-			aStream space ]."
-		
-		"Last one without a space"
-		"(self at: i
-			at: self numberOfColumns)
-			printOn: aStream.
-		
-		aStream cr ]."
-	
-	"Last one without new line"
-	"(self rowNames at: self numberOfRows) printOn: aStream.
-	aStream tab.
-		
-	1 to: self numberOfColumns - 1 do: [ :j |
-		(self at: self numberOfRows at: j) printOn: aStream.
-		aStream space ]."
-		
-	"Last one without a space"
-	"(self
-		at: self numberOfRows
-		at: self numberOfColumns)
-		printOn: aStream.
-		aStream space."
+	DataPrettyPrinter new print: self on: aStream.

DataFrame-Core.package/DataFrame.class/instance/show.st

@@ -1,4 +1,4 @@
-as yet unclassified
+accessing
 show
 
-	self showWithGlamour
+	self showWithGlamour openInWindowLabeled: 'a DataFrame'

DataFrame-Core.package/DataFrame.class/instance/showWithGlamour.st

@@ -4,7 +4,7 @@ showWithGlamour
 	| table |
 
 	table := FTTableMorph new
-		extent: 650@500.
+		"extent: 650@500".
 
 	table addColumn: ((FTColumn id: '#') width: 40).
 
@@ -23,4 +23,4 @@ showWithGlamour
 		beMultipleSelection;
 		yourself.
 
-	^ table openInWindowLabeled: 'a DataFrame'.
+	^ table

DataFrame-Core.package/DataSeries.class/instance/^equals.st

@@ -1,6 +1,9 @@
 comparing
 = otherSeries
 
+	(otherSeries isKindOf: DataSeries)
+		ifFalse: [ ^ false ].
+
 	"I'm not sure if names should be considered when testing for equality"
 	self name = otherSeries name
 		ifFalse: [ ^ false ].

DataFrame-Core.package/DataSeries.class/instance/histogram.color..st

@@ -0,0 +1,9 @@
+as yet unclassified
+histogram: barSize color: color
+
+	| aggregationKeys aggregatedSeries |
+	
+	aggregationKeys := self keys asDataSeries % (self size / barSize).
+	aggregatedSeries := (self groupBy: aggregationKeys) sum.
+	
+	^ aggregatedSeries histogramWithColor: color

DataFrame-Plots.package/DataFrame.extension/instance/histogram.st

@@ -0,0 +1,23 @@
+*DataFrame-Plots
+histogram
+
+	| n composer palette b |
+
+	n := self numericColumnNames size.
+	composer := RTComposer new.
+	
+	palette := DataColor palette: n.
+	
+	(self numericColumnNames) doWithIndex: [ :columnName :i |
+		b := (self column: columnName) histogramWithColor: (palette at: i).
+		b extent: 500 @ (300 / n).
+		b view: composer view.
+		b build.
+		composer group: 'b', i asString ].
+	
+	2 to: n do: [ :i |
+		composer
+			move: ('b', i asString)
+			below: ('b', (i - 1) asString) ].
+		
+	^ composer view