Creating tweets collections split by days.
This commit is contained in:
parent
6548c70291
commit
215e83d66e
@ -0,0 +1,11 @@
|
|||||||
|
accessing
|
||||||
|
splitByDays
|
||||||
|
|
||||||
|
| response spans |
|
||||||
|
response := Dictionary new.
|
||||||
|
self timeSpansByDays doWithIndex: [ :span :i |
|
||||||
|
response
|
||||||
|
at: span asDate asString
|
||||||
|
put: (self select: [ :message | span includes: (message created asDateAndTime)])
|
||||||
|
].
|
||||||
|
^ response
|
@ -0,0 +1,5 @@
|
|||||||
|
accessing
|
||||||
|
timeSpansByDays
|
||||||
|
|
||||||
|
^ (Timespan starting: self oldest created ending: self newest created)
|
||||||
|
dates asOrderedCollection collect: [ :date | Timespan starting: date ending: date + 24 hours]
|
Loading…
Reference in New Issue
Block a user