Implemented pretty-printing

Author: olekscode

DataFrame-PrettyPrint.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/README.md

@@ -0,0 +1,9 @@
+as yet unclassified
+eachColumnAlign: aDataFrame
+"Returns an array of characters specifying how each column should be aligned based on its type. Possible values are #LEFT, #RIGHT, and #CENTER"
+
+	^ aDataFrame columnTypes collect: [ :type |
+		((type inheritsFrom: String) or:
+		(type == String))
+			ifTrue: [ #LEFT ]
+			ifFalse: [ #RIGHT ] ].

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/eachColumnAlign..st

@@ -0,0 +1,32 @@
+as yet unclassified
+eachColumnMaxLength: aDataFrame
+"For every column converts all values to strind and determines the length of the longest string"
+
+	| maxLenArray findMaxLen |
+	
+	maxLenArray := Array new: (aDataFrame numberOfColumns + 1).
+	
+	findMaxLen := [ :initMaxLen :column |
+		| len maxLen |
+		maxLen := initMaxLen.
+		
+		(1 to: column size) do: [ :i |
+			len := (column at: i) asString size.
+			
+			len > maxLen
+				ifTrue: [ maxLen := len ] ].
+		maxLen ].
+	
+	maxLenArray at: 1 put:
+		(findMaxLen value: 0 value: aDataFrame rowNames).
+	
+	1 to: aDataFrame numberOfColumns do: [ :i |
+		| column |
+		column := aDataFrame columnAt: i.
+		
+		maxLenArray at: (i + 1) put:
+			(findMaxLen
+				value: column name asString size
+				value: column) ].
+			
+	^ maxLenArray

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/eachColumnMaxLength..st

@@ -0,0 +1,6 @@
+as yet unclassified
+offsetWithSpaces: aNumber
+"Generates a string filled with a given number of spaces"
+	
+	^ (1 to: aNumber) inject: '' into: [ :offset :i |
+		offset, ' ' ].

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/offsetWithSpaces..st

@@ -0,0 +1,17 @@
+printing
+print: aDataFrame on: aStream
+"Pretty-prints a data frame"
+	
+	columnLengths := self eachColumnMaxLength: aDataFrame.
+	columnAligns := self eachColumnAlign: aDataFrame.
+	separator := '  '.
+	
+	self printRow: (aDataFrame columnNames) andKey: '' on: aStream.
+	aStream cr.
+	
+	self printLineOn: aStream.
+	aStream cr.
+	
+	1 to: aDataFrame numberOfRows do: [ :i |
+		self printRow: i of: aDataFrame on: aStream.
+		aStream cr ].

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/print.on..st

@@ -0,0 +1,19 @@
+printing
+printLineOn: aStream
+
+	| numberOfColumns sumColLen sumOffset keySideLen valSideLen |
+	
+	numberOfColumns := columnLengths size.
+	sumColLen := columnLengths sum - (columnLengths at: 1).
+	sumOffset := (separator size) * numberOfColumns.
+	
+	keySideLen := (columnLengths at: 1) + (separator size).
+	valSideLen := sumColLen + sumOffset.
+	
+	1 to: keySideLen do: [ :i |
+		aStream nextPutAll: '-' ].
+	
+	aStream nextPutAll: '+'.
+	
+	1 to: valSideLen do: [ :i |
+		aStream nextPutAll: '-' ].

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/printLineOn..st

@@ -0,0 +1,34 @@
+printing
+printRow: aRow andKey: aKey on: aStream
+
+	| cellStr offset |
+	
+	cellStr := aKey asString.
+	
+	offset := self offsetWithSpaces:
+			((columnLengths at: 1) - cellStr size).
+			
+	(columnAligns at: 1) = #RIGHT
+			ifTrue: [ cellStr := offset, cellStr ].
+		(columnAligns at: 1) = #LEFT
+			ifTrue: [ cellStr := cellStr, offset ].
+			
+	aStream
+			nextPutAll: cellStr;
+			nextPutAll: separator;
+			nextPutAll: '|';
+			nextPutAll: separator.
+
+	1 to: aRow size do: [ :i |
+		cellStr := (aRow at: i) asString.
+		offset := self offsetWithSpaces:
+			((columnLengths at: i + 1) - cellStr size).
+			
+		(columnAligns at: i) = #RIGHT
+			ifTrue: [ cellStr := offset, cellStr ].
+		(columnAligns at: i) = #LEFT
+			ifTrue: [ cellStr := cellStr, offset ].
+				
+		aStream
+			nextPutAll: cellStr;
+			nextPutAll: separator. ].

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/printRow.andKey.on..st

@@ -0,0 +1,7 @@
+printing
+printRow: aNumber of: aDataFrame on: aStream
+
+	| row key |
+	row := aDataFrame rowAt: aNumber.
+	key := (aDataFrame rowNames at: aNumber) asString.
+	self printRow: row andKey: key on: aStream.

DataFrame-PrettyPrint.package/DataPrettyPrinter.class/instance/printRow.of.on..st

@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "DataFrame-PrettyPrint",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"columnLengths",
+		"columnAligns",
+		"separator"
+	],
+	"name" : "DataPrettyPrinter",
+	"type" : "normal"
+}