From 94b104e0e8ce7f8e86de1923902ae1fd0bc49f74 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Sat, 4 Jun 2022 17:49:18 -0500
Subject: [PATCH] Creating retweets static web report histogram.

---
 .../NitterUser.class/instance/asDictionary.st      |  5 ++++-
 .../instance/retweetsReportData.st                 | 14 ++++++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 Socialmetrica.package/NitterUser.class/instance/retweetsReportData.st

diff --git a/Socialmetrica.package/NitterUser.class/instance/asDictionary.st b/Socialmetrica.package/NitterUser.class/instance/asDictionary.st
index 2876ed5..a127c13 100644
--- a/Socialmetrica.package/NitterUser.class/instance/asDictionary.st
+++ b/Socialmetrica.package/NitterUser.class/instance/asDictionary.st
@@ -1,11 +1,12 @@
 accessing
 asDictionary
 
-	| tweets tweetsHistogramData repliesHistogramData quotesHistogramData |
+	| tweets tweetsHistogramData repliesHistogramData quotesHistogramData retweetsHistogramData |
 	tweets := self messages.
 	tweetsHistogramData := self tweetsByWeeksTimeSpan.
 	repliesHistogramData := self repliesByWeeksTimeSpan.
 	quotesHistogramData := self quotesReportData.
+	retweetsHistogramData := self retweetsReportData.
 	^ { 'profile-card-avatar' -> self profileImageFile fullName.
 	'profile-card-avatar-url' -> self profileImageUrl.
 	'profile-card-fullname' -> self name .
@@ -18,6 +19,8 @@ asDictionary
 	'tweets-histogram-quantity' -> tweetsHistogramData second.
 	'replies-histogram-labels' -> repliesHistogramData third.
 	'replies-histogram-quantity' -> repliesHistogramData second.
+	'retweets-histogram-labels' -> retweetsHistogramData third.
+	'retweets-histogram-quantity' -> retweetsHistogramData second.
 	'quotes-histogram-labels' -> quotesHistogramData third.
 	'quotes-histogram-quantity' -> quotesHistogramData second.
 	} asDictionary
\ No newline at end of file
diff --git a/Socialmetrica.package/NitterUser.class/instance/retweetsReportData.st b/Socialmetrica.package/NitterUser.class/instance/retweetsReportData.st
new file mode 100644
index 0000000..79b47a4
--- /dev/null
+++ b/Socialmetrica.package/NitterUser.class/instance/retweetsReportData.st
@@ -0,0 +1,14 @@
+accessing
+retweetsReportData
+
+	| tempDict labels xAxis |
+	tempDict := self retweetsSortedByOccurrences.
+	labels := tempDict keys.
+	labels := labels collect: [ :profile | ($' asString), '@', profile, ($' asString) ].
+	xAxis := tempDict values.
+	xAxis := xAxis collect: [ :value | ($' asString), (value asString), ($' asString) ].
+	^ {
+	tempDict.
+	('[', (',' join: xAxis), ']').
+	('[', (',' join: labels), ']').
+	}
\ No newline at end of file