From 215e83d66ebcf2a763f7fabb6b94c965a66bfcb4 Mon Sep 17 00:00:00 2001 From: ruidajo Date: Thu, 16 Jun 2022 20:44:15 -0500 Subject: [PATCH] Creating tweets collections split by days. --- .../TweetsCollection.class/instance/splitByDays.st | 11 +++++++++++ .../instance/timeSpansByDays.st | 5 +++++ 2 files changed, 16 insertions(+) create mode 100644 Socialmetrica.package/TweetsCollection.class/instance/splitByDays.st create mode 100644 Socialmetrica.package/TweetsCollection.class/instance/timeSpansByDays.st diff --git a/Socialmetrica.package/TweetsCollection.class/instance/splitByDays.st b/Socialmetrica.package/TweetsCollection.class/instance/splitByDays.st new file mode 100644 index 0000000..70c3cbe --- /dev/null +++ b/Socialmetrica.package/TweetsCollection.class/instance/splitByDays.st @@ -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 \ No newline at end of file diff --git a/Socialmetrica.package/TweetsCollection.class/instance/timeSpansByDays.st b/Socialmetrica.package/TweetsCollection.class/instance/timeSpansByDays.st new file mode 100644 index 0000000..0501c48 --- /dev/null +++ b/Socialmetrica.package/TweetsCollection.class/instance/timeSpansByDays.st @@ -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] \ No newline at end of file