From 4d439283b14ce8609c8de21dd273d48b0d4714db Mon Sep 17 00:00:00 2001 From: ruidajo Date: Tue, 21 Jun 2022 08:40:44 -0500 Subject: [PATCH] Creating tweets collectioin splits by number and Refactoring Timespan extensions. --- .../Timespan.extension/instance/asDates.st | 5 +++++ .../instance/asDatesString.st | 0 .../instance/asDatesStrings.st | 0 .../Timespan.extension/properties.json | 3 +++ .../instance/splitBytimeSpansOf..st | 11 +++++++++++ 5 files changed, 19 insertions(+) create mode 100644 Socialmetrica.package/Timespan.extension/instance/asDates.st rename Socialmetrica.package/{Week.extension => Timespan.extension}/instance/asDatesString.st (100%) rename Socialmetrica.package/{Week.extension => Timespan.extension}/instance/asDatesStrings.st (100%) create mode 100644 Socialmetrica.package/Timespan.extension/properties.json create mode 100644 Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st diff --git a/Socialmetrica.package/Timespan.extension/instance/asDates.st b/Socialmetrica.package/Timespan.extension/instance/asDates.st new file mode 100644 index 0000000..11e9fec --- /dev/null +++ b/Socialmetrica.package/Timespan.extension/instance/asDates.st @@ -0,0 +1,5 @@ +*Socialmetrica +asDates + + ^ {self start. + (self start + self duration)} \ No newline at end of file diff --git a/Socialmetrica.package/Week.extension/instance/asDatesString.st b/Socialmetrica.package/Timespan.extension/instance/asDatesString.st similarity index 100% rename from Socialmetrica.package/Week.extension/instance/asDatesString.st rename to Socialmetrica.package/Timespan.extension/instance/asDatesString.st diff --git a/Socialmetrica.package/Week.extension/instance/asDatesStrings.st b/Socialmetrica.package/Timespan.extension/instance/asDatesStrings.st similarity index 100% rename from Socialmetrica.package/Week.extension/instance/asDatesStrings.st rename to Socialmetrica.package/Timespan.extension/instance/asDatesStrings.st diff --git a/Socialmetrica.package/Timespan.extension/properties.json b/Socialmetrica.package/Timespan.extension/properties.json new file mode 100644 index 0000000..97d20a4 --- /dev/null +++ b/Socialmetrica.package/Timespan.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Timespan" +} \ No newline at end of file diff --git a/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st b/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st new file mode 100644 index 0000000..0631b89 --- /dev/null +++ b/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st @@ -0,0 +1,11 @@ +accessing +splitBytimeSpansOf: integerDivisions + + | borders response | + response := OrderedDictionary new. + (self timeSpansOf: integerDivisions) doWithIndex: [ :span :i | + response + at: span asDatesString + put: (self select: [ :message | span includes: (message created asDateAndTime)]) + ]. + ^ response \ No newline at end of file