feat(metrics): number of project with a commit of the user (#30)

* feat: create numberOfProjetWithCommit method

* feat: add numberOfProjectWithCommit metric in analysis report and csv export

* fix: missing semicolon

* fix: missing comma

Author: knowbased

src/GitLabHealth-Model-Analysis/AnalysisReport.class.st

@@ -11,6 +11,7 @@ Class {
 		'mergeRequestDuration',
 		'codeChurn',
 		'delayUntilFirstChurn',
+		'numberOfProjectWithCommit',
 		'averageTimeBetweenCommits'
 	],
 	#category : #'GitLabHealth-Model-Analysis'
@@ -117,6 +118,18 @@ AnalysisReport >> mergeRequestDuration: anObject [
 	mergeRequestDuration := anObject
 ]
 
+{ #category : #accessing }
+AnalysisReport >> numberOfProjectWithCommit [
+
+	^ numberOfProjectWithCommit
+]
+
+{ #category : #accessing }
+AnalysisReport >> numberOfProjectWithCommit: anObject [
+
+	numberOfProjectWithCommit := anObject
+]
+
 { #category : #accessing }
 AnalysisReport >> period [
 

src/GitLabHealth-Model-Analysis/GitMetric4User.class.st

@@ -567,7 +567,7 @@ GitMetric4User >> foundSuccessorOf: userCommits andCompleteImportForMax: commitL
 { #category : #'as yet unclassified' }
 GitMetric4User >> generateAnalysisForPeriod: period over: over withMaxCommitWindows: maxCommitWindow [
 
-	| contribution codeAddition codeDeletion commitFrequency commentContribution mergeRequestDuration codeChurn delayUntilFirstChurn averageTimeBetweenCommits |
+	| contribution codeAddition codeDeletion commitFrequency commentContribution mergeRequestDuration codeChurn delayUntilFirstChurn averageTimeBetweenCommits averageTimeBetweenCommits |
 
 	contribution := self
 		                codeContributionsSince: (period at: #since)
@@ -606,6 +606,7 @@ GitMetric4User >> generateAnalysisForPeriod: period over: over withMaxCommitWind
 		                         onACommitWindowOf: maxCommitWindow
 		                         overA: over) at: #avgDelay.
 
+	numberOfProjectWithCommit := self numberOfProjectWithCommitSince: (period at: #since) until: (period at: #until) overA: over.	
 	averageTimeBetweenCommits := (self averageTimeBetweenCommitSince: (period at: #since) until: (period at: #until) over: over) at: #average.
 
 	^ AnalysisReport new
@@ -618,6 +619,7 @@ GitMetric4User >> generateAnalysisForPeriod: period over: over withMaxCommitWind
 		  mergeRequestDuration: mergeRequestDuration;
 		  codeChurn: codeChurn;
 		  delayUntilFirstChurn: delayUntilFirstChurn;
+		numberOfProjectWithCommit: (numberOfProjectWithCommit at: #average);
 		  averageTimeBetweenCommits: averageTimeBetweenCommits.
 ]
 
@@ -730,6 +732,52 @@ GitMetric4User >> mergeRequestDurationSince: since until: until overA: aDateWeek
 		  (#details -> groupedByDate) } asDictionary
 ]
 
+{ #category : #metrics }
+GitMetric4User >> numberOfProjectWithCommitSince: since until: until overA: aDateWeekMonthOrYear [
+	| groupedByDate commits userCommits dateOver projects |
+	groupedByDate := self
+		                 setupGroupedDateFrom: since
+		                 to: until
+		                 over: aDateWeekMonthOrYear.
+		
+	gitAnalyzer := GitAnalyzer new
+		               onModel: glhModel;
+		               glhImporter: glhImporter.
+
+	glhImporter withCommitDiffs: false.
+	commits := self
+		           loadCommitsFromProjectsIds: itsProjects keys
+		           since: since
+		           until: until.
+	glhImporter withCommitDiffs: true.
+	userCommits := commits reject: [ :commit | commit commitCreator ~= user ].
+	
+
+	userCommits do: [ :userCommit |
+		 dateOver := self
+			            transformDate: userCommit committed_date 
+			            to: aDateWeekMonthOrYear.
+			
+		groupedByDate at: dateOver printString ifPresent: [ :value | value add: (userCommit repository project) ].
+	].
+
+	groupedByDate := groupedByDate collect: [ :group |		 
+		projects := Set newFrom: group.		
+		projects size.
+	].
+
+	^ {
+		  (#overEach -> aDateWeekMonthOrYear name).
+		  (#forOver -> (groupedByDate keys size printString
+		    , aDateWeekMonthOrYear printString)).
+		  (#average
+		   ->
+		   groupedByDate average asFloat).
+		  (#details -> groupedByDate).
+		  (#userCommits -> commits size) } asDictionary
+
+]
+
 { #category : #accessing }
 GitMetric4User >> user [
 	^ user

src/GitLabHealth-Model-Analysis/GitMetricExporter.class.st

@@ -232,6 +232,12 @@ GitMetricExporter >> exportInCSVOver: aCollectionOfDateWeekMonthOrYear [
 			'delay Until First Churn (W=' , maxCommitWindow printString
 			, ') ' asSymbol.
 
+	"number of project with minimum one commit of user"
+	exportBrowserModel
+		addColumnForQuery: [ :analysis | analysis numberOfProjectWithCommit ]
+		withName:
+			'number of project with min 1 commit of user' asSymbol.
+      
 	"average time between commits"
 	exportBrowserModel
 		addColumnForQuery: [ :analysis | analysis averageTimeBetweenCommits  ]