Fixing quotes report data and Modifying retweets report data.

This commit is contained in:
ruidajo 2022-06-09 16:05:38 -05:00
parent 1dec7081e4
commit d2025d8aa9
2 changed files with 6 additions and 2 deletions

View File

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

View File

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