Improved the differentiation of different types of DataSeries

Author: olekscode

DataFrame-Core.package/DataSeries.class/class/fromSeries..st

@@ -0,0 +1,12 @@
+instance creation
+fromSeries: aSeries
+	
+	| series |
+	series := self newFrom: aSeries.
+	
+	series keys: aSeries keys.
+	series name: aSeries name.
+	
+	^ series
+		
+	

DataFrame-Core.package/DataSeries.class/class/newFrom..st

@@ -1,24 +1,12 @@
 instance creation
-newFrom: aCollection
+newFrom: anArray
+"Every subclass overrides this method and converts the data to a specific type"
 
-	| df |
+	| series |
+	series := self new: (anArray size).
 
-	((aCollection isKindOf: Dictionary) or:
-	 (aCollection isKindOf: OrderedDictionary))
-		ifTrue: [ ^ super newFrom: aCollection ].
-		
-	"If all the values are associations"
-	aCollection
-		detect: [ :each |
-			(each isKindOf: Association) not ]
-		ifNone: [ ^ super newFrom: aCollection ].
-		
-		
-	df := self new.
-	
-	aCollection doWithIndex: [ :value :i |
-		df at: i put: value ].
-	
-	^ df
+	anArray doWithIndex: [ :each :i |
+		series at: i put: each  ].
 
+	^ series
 

DataFrame-Core.package/DataSeries.class/instance/asDataSeries.st

@@ -1,4 +1,4 @@
 converting
-asDataSeries 
-	"Answer self since the receiver is a data series."
-	^ self
+asDataSeries
+
+	^ DataSeries newFrom: self.

DataFrame-Core.package/DataSeries.class/instance/asDataSeriesNumeric.st

@@ -0,0 +1,4 @@
+converting
+asDataSeriesNumeric
+	
+	^ DataSeriesNumeric newFrom: self.

DataFrame-Core.package/DataSeries.class/instance/asDataSeriesText.st

@@ -0,0 +1,4 @@
+converting
+asDataSeriesText
+	
+	^ DataSeriesText newFrom: self.

DataFrame-Core.package/DataSeries.class/instance/asDataSeriesTime.st

@@ -0,0 +1,4 @@
+converting
+asDataSeriesTime
+	
+	^ DataSeriesTime newFrom: self.

DataFrame-Core.package/DataSeriesNumeric.class/class/newFrom..st

@@ -0,0 +1,12 @@
+instance creation
+newFrom: anArray
+"Every subclass of DataSeries overrides this method and converts the data to a specific type"
+	
+	| series |
+	series := self new: (anArray size).
+	
+	anArray doWithIndex: [ :each :i |
+		series at: i put: each asNumber ].
+		
+	^ series
+	

DataFrame-Core.package/DataSeriesText.class/class/newFrom..st

@@ -0,0 +1,12 @@
+instance creation
+newFrom: anArray
+"Every subclass of DataSeries overrides this method and converts the data to a specific type"
+	
+	| series |
+	series := self new: (anArray size).
+	
+	anArray doWithIndex: [ :each :i |
+		series at: i put: each asString ].
+		
+	^ series
+	

DataFrame-Core.package/DataSeriesTime.class/README.md

@@ -0,0 +1,12 @@
+instance creation
+newFrom: anArray
+"Every subclass of DataSeries overrides this method and converts the data to a specific type"
+	
+	| series |
+	series := self new: (anArray size).
+	
+	anArray doWithIndex: [ :each :i |
+		series at: i put: (DateAndTime fromString: each) ].
+		
+	^ series
+