19 lines
598 B
Smalltalk
19 lines
598 B
Smalltalk
accessing
|
|
repliesByTimeSpan: divisions
|
|
|
|
| tweetsByTimeSpan xAxis labels |
|
|
tweetsByTimeSpan := self collectMessages: [ self replies ] byTimeSpanSplits: divisions.
|
|
xAxis := OrderedCollection new.
|
|
(tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number |
|
|
xAxis add: ($' asString), (number asString), ($' asString)
|
|
].
|
|
labels := OrderedCollection new.
|
|
tweetsByTimeSpan keys do: [ :string |
|
|
labels add: ($' asString), string, ($' asString)
|
|
].
|
|
^ {
|
|
tweetsByTimeSpan.
|
|
('[', (',' join: xAxis), ']').
|
|
('[', (',' join: labels), ']').
|
|
}
|
|
|