Added DataFrame>> #includes: with tests

Author: Joshua-Dias-Barreto

src/DataFrame-Tests/DataFrameTest.class.st

@@ -1937,6 +1937,23 @@ DataFrameTest >> testHasNilsByColumn [
 	self assert: df hasNilsByColumn equals: expected
 ]
 
+{ #category : #'find-select' }
+DataFrameTest >> testIncludes [
+
+	| dataSeries1 dataSeries2 |
+	dataSeries1 := DataSeries
+		               withKeys: #( City Population BeenThere )
+		               values: #( London 8.788 false )
+		               name: 'C'.
+	dataSeries2 := DataSeries
+		               withKeys: #( City Population BeenThere )
+		               values: #( Paris 8.788 false )
+		               name: 'B'.
+
+	self assert: (df includes: dataSeries1).
+	self deny: (df includes: dataSeries2)
+]
+
 { #category : #tests }
 DataFrameTest >> testIndexOfColumnNamed [
 	| expected actual |

src/DataFrame/DataFrame.class.st

@@ -1243,6 +1243,13 @@ DataFrame >> head: aNumber [
 	^ self rowsAt: (1 to: (self numberOfRows min: aNumber))
 ]
 
+{ #category : #'find-select' }
+DataFrame >> includes: aDataSeries [
+	"Returns true if the DataFrame includes the specified DataSeries."
+
+	^ self rows anySatisfy: [ :row | row = aDataSeries ]
+]
+
 { #category : #accessing }
 DataFrame >> indexOfColumnNamed: columnName [
 	"Answer the index of a column with a given name or signal an exception if the column with that name was not found"