2022-06-04 22:49:18 +00:00
|
|
|
accessing
|
|
|
|
retweetsReportData
|
|
|
|
|
|
|
|
| tempDict labels xAxis |
|
2022-06-21 16:59:13 +00:00
|
|
|
tempDict := self retweets asMessagesUserNamesSortedByOccurrences.
|
2022-06-09 21:05:38 +00:00
|
|
|
|
|
|
|
tempDict size > 10 ifTrue: [
|
|
|
|
tempDict := (tempDict associations copyFrom: 1 to: 10) asOrderedDictionary ].
|
|
|
|
|
2022-06-04 22:49:18 +00:00
|
|
|
labels := tempDict keys.
|
|
|
|
labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
|
|
|
|
xAxis := tempDict values.
|
|
|
|
xAxis := xAxis collect: [ :value | ($' asString), (value asString), ($' asString) ].
|
|
|
|
^ {
|
|
|
|
tempDict.
|
|
|
|
('[', (',' join: xAxis), ']').
|
|
|
|
('[', (',' join: labels), ']').
|
|
|
|
}
|