Added DataFrame>> #includesAny: with tests.

Author: Joshua-Dias-Barreto

src/DataFrame-Tests/DataFrameTest.class.st

@@ -1973,6 +1973,25 @@ DataFrameTest >> testIncludesAll [
 				 dataSeries2 })
 ]
 
+{ #category : #'find-select' }
+DataFrameTest >> testIncludesAny [
+
+	| 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 includesAny: {
+				 dataSeries1.
+				 dataSeries2 }).
+	self deny: (df includesAny: { dataSeries2 })
+]
+
 { #category : #tests }
 DataFrameTest >> testIndexOfColumnNamed [
 	| expected actual |

src/DataFrame/DataFrame.class.st

@@ -1258,6 +1258,14 @@ DataFrame >> includesAll: aDataSeriesCollection [
 		  self includes: dataSeries ]
 ]
 
+{ #category : #'find-select' }
+DataFrame >> includesAny: aDataSeriesCollection [
+	"Returns true if the DataFrame includes any of the DataSeries in the specified collection."
+
+	^ aDataSeriesCollection anySatisfy: [ :dataSeries |
+		  self includes: dataSeries ]
+]
+
 { #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"