diff --git a/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st b/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st index bdad00c..f768809 100644 --- a/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st +++ b/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st @@ -1,5 +1,4 @@ accessing getRemoteMessagesFromHtml - self messages: (self collectRawTweetsUpToPage: 1). - ^ self messages \ No newline at end of file + ^ messages := self collectRawTweetsUpToPage: 1 \ No newline at end of file diff --git a/Socialmetrica.package/NitterUser.class/instance/messages.st b/Socialmetrica.package/NitterUser.class/instance/messages.st index c2a442b..552d6a8 100644 --- a/Socialmetrica.package/NitterUser.class/instance/messages.st +++ b/Socialmetrica.package/NitterUser.class/instance/messages.st @@ -1,7 +1,12 @@ accessing messages - messages ifNil: [ ^ messages := TweetsCollection new ]. + messages ifNil: [ messages := TweetsCollection new ]. messages ifEmpty: [ self getRemoteMessagesFromHtml ]. - self config isEmpty ifTrue: [ ^ messages ]. + [ config at: 'reportingPeriod' ] + onErrorDo: [ self config + at: 'reportingPeriod' + put: (Timespan + starting: (messages oldest created asDateAndTime) + ending: (messages newest created asDateAndTime + 1 minute)) ]. ^ messages select: [ :message | message created between: self reportingPeriod start and: self reportingPeriod end ] \ No newline at end of file