2022-05-15 18:51:33 +00:00
|
|
|
accessing
|
|
|
|
|
updatedTweets
|
|
|
|
|
| currentTweetsPage response nextPageCursor |
|
|
|
|
|
|
2022-05-15 21:32:06 +00:00
|
|
|
response := TweetsCollection new.
|
2022-05-15 18:51:33 +00:00
|
|
|
currentTweetsPage := self collectRawTweetsFrom: self userNameLinkWithReplies upToPage: 2.
|
|
|
|
|
[ (currentTweetsPage collect: [ :tweet | tweet id ]) includes: self newestTweet id ] whileFalse: [
|
|
|
|
|
response addAll: currentTweetsPage.
|
|
|
|
|
nextPageCursor := currentTweetsPage nextCursor.
|
|
|
|
|
currentTweetsPage := self collectRawTweetsFrom: nextPageCursor upToPage: 2.
|
|
|
|
|
].
|
|
|
|
|
^ response
|
