2022-06-02 04:32:31 +00:00
|
|
|
accessing
|
|
|
|
tweetsByWeeksTimeSpan
|
|
|
|
|
2022-06-04 00:43:01 +00:00
|
|
|
| tweetsByTimeSpan xAxis labels |
|
|
|
|
tweetsByTimeSpan := self collectMessages: [ self tweets] byTimeSpanSplits: self tweetsDivisionsByWeeks.
|
2022-06-02 04:32:31 +00:00
|
|
|
xAxis := OrderedCollection new.
|
|
|
|
(tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number |
|
|
|
|
xAxis add: ($' asString), (number asString), ($' asString)
|
|
|
|
].
|
|
|
|
labels := OrderedCollection new.
|
|
|
|
tweetsByTimeSpan keys do: [ :string |
|
2022-06-04 00:43:01 +00:00
|
|
|
labels add: ($' asString), string, ($' asString)
|
2022-06-02 04:32:31 +00:00
|
|
|
].
|
|
|
|
^ {
|
|
|
|
tweetsByTimeSpan.
|
|
|
|
('[', (',' join: xAxis), ']').
|
|
|
|
('[', (',' join: labels), ']').
|
|
|
|
}
|
|
|
|
|