Offray
/
Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Creating author ids to get all the ids from database and refactoring tweets filtering.

This commit is contained in:
ruidajo 2022-06-15 18:43:59 -05:00
parent 0b172e6f29
commit 61eb15f8e3
2 changed files with 10 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Socialmetrica.package/NitterUser.class/instance/authorIds.st Normal file
View File

@ -0,0 +1,4 @@
accessing
authorIds
^ TwitterUser storedInstances select: [ :each | each userName = self userName ] thenCollect: [ :each | each id ]

38
Socialmetrica.package/NitterUser.class/instance/tweets.st
View File

@ -3,38 +3,12 @@ tweets
| subcollection |
self messages ifEmpty: [ self getMessages ].
"TO DO: It seems that Twitter changes the user id, which we thought was unchangeable. This deals with the detected changes so far."
self userName = 'FranciaMarquezM'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1510420950801698826') or: [ each authorId = self id ] ]
].
self userName = 'sandralajas'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1502504562984374276') or: [ each authorId = self id ] ]
].
self userName = 'IBetancourtCol'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1517487571135344643') or: [ each authorId = self id ] ]
].
self userName = 'sergio_fajardo'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1509644668300058633') or: [ each authorId = self id ] ]
].
self userName = 'ingrodolfohdez'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1511813393220616192') or: [ each authorId = self id ] ]
].
self userName = 'CastilloMarelen'
ifTrue: [
subcollection := self messages
select: [ :each | (each authorId = '1506282884746952707') or: [ each authorId = self id ] ]
].
(#('FranciaMarquezM' 'sandralajas' 'IBetancourtCol' 'sergio_fajardo' 'ingrodolfohdez' 'CastilloMarelen') includes: self userName)
ifFalse: [ subcollection := self messages select: [ :each | each authorId = self id ]].
subcollection := self messages
select: [ :each | self authorIds includes: each authorId ].
(#('FranciaMarquezM' 'sandralajas' 'IBetancourtCol' 'sergio_fajardo' 'ingrodolfohdez' 'CastilloMarelen') includes: self userName)
ifFalse: [ subcollection := self messages select: [ :each | each authorId = self id ]].
^ TweetsCollection new
messages: subcollection;
yourself