Modifying quotes report data.

This commit is contained in:
ruidajo 2022-06-09 16:02:35 -05:00
parent 33dccbc851
commit 1dec7081e4
1 changed files with 4 additions and 0 deletions

View File

@ -3,6 +3,10 @@ quotesReportData
| tempDict labels xAxis |
tempDict := self quotesSortedByOccurrences.
tempDict size > 50 ifTrue: [
tempDict := (tempDict associations copyFrom: 1 to: 50) asOrderedDictionary ].
labels := tempDict keys.
labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
xAxis := tempDict values.