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

Fixing messages processing for asDictionary and web report exporter.

Browse Source
This commit is contained in:
ruidajo 2023-07-25 21:30:24 -05:00
parent 625e66f006
commit 3148f61eb9
4 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Socialmetrica.package/NitterUser.class/instance/profileImageUrl.st
View File

@ -3,4 +3,4 @@ profileImageUrl
| documentTree | | documentTree |
documentTree := [ self documentTree ] onErrorDo: [ ^ nil ]. documentTree := [ self documentTree ] onErrorDo: [ ^ nil ].
^ self class nitterProvider, (((documentTree xpath: '//div[@class="profile-card-info"]//a[@class="profile-card-avatar"]') @ 'href') stringValue copyReplaceAll: '%2F' with: '/') copyWithoutFirst ^ profileImageUrl := self class nitterProvider, (((documentTree xpath: '//div[@class="profile-card-info"]//a[@class="profile-card-avatar"]') @ 'href') stringValue copyReplaceAll: '%2F' with: '/') copyWithoutFirst

4
Socialmetrica.package/NitterUser.class/instance/quotesReportData.st
View File

@ -2,6 +2,10 @@ accessing
quotesReportData quotesReportData
| tempDict labels xAxis | | tempDict labels xAxis |
self quotes isEmpty
ifTrue: [ ^ { OrderedDictionary new.
('[''', '0', ''']').
('[''', 'No replies', ''']')} ].
tempDict := self quotes asMessagesUserNamesSortedByOccurrences. tempDict := self quotes asMessagesUserNamesSortedByOccurrences.
tempDict size > 10 ifTrue: [ tempDict size > 10 ifTrue: [

4
Socialmetrica.package/NitterUser.class/instance/repliesByWeeksTimeSpan.st
View File

@ -2,6 +2,10 @@ accessing
repliesByWeeksTimeSpan repliesByWeeksTimeSpan
| tweetsByTimeSpan xAxis labels | | tweetsByTimeSpan xAxis labels |
self replies isEmpty
ifTrue: [ ^ { OrderedDictionary new.
('[''', '0', ''']').
('[''', 'No replies', ''']')} ].
tweetsByTimeSpan := self collectMessages: [ self replies ] byTimeSpanSplits: self tweetsDivisionsByWeeks. tweetsByTimeSpan := self collectMessages: [ self replies ] byTimeSpanSplits: self tweetsDivisionsByWeeks.
xAxis := OrderedCollection new. xAxis := OrderedCollection new.
(tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number | (tweetsByTimeSpan values collect: [ :collection | collection size ]) do: [ :number |

4
Socialmetrica.package/NitterUser.class/instance/tweetsDivisionsByWeeks.st
View File

@ -5,6 +5,8 @@ tweetsDivisionsByWeeks
weeks := ((self newestTweet created - self oldestTweet created) days / 7). weeks := ((self newestTweet created - self oldestTweet created) days / 7).
floor := weeks floor. floor := weeks floor.
(weeks - floor) > 0.4 (weeks - floor) > 0.4
ifTrue: [ divisions := floor ] ifTrue: [ floor = 0
ifTrue: [ divisions := 1 ]
ifFalse: [ divisions := floor]]
ifFalse: [ divisions := floor + 1 ]. ifFalse: [ divisions := floor + 1 ].
^ divisions ^ divisions