Twitter user now includes tweets. Improvements on data collection and presentation.

Datanalitica.package/TwitterAPI.class/instance/gtUsersMentioning.On..st

@@ -1,12 +0,0 @@
-accessing
-gtUsersMentioning: userName On: aView
-	<gtView>
-	^ aView columnedList
-		title: 'Users mentioning @',userName  translated;
-		priority: 5;
-		items: [ self usersMentioning: userName ];
-		column: 'Imagen' 
-			icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ]
-			width: 75;
-		column: 'User Name' text: [ :aTwitterUser | aTwitterUser userName ];
-		column: 'Name' text: [ :aTwitterUser | aTwitterUser name ]

Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st

@@ -2,6 +2,7 @@ accessing
 userEndPointFor: username selecting: tweetsOrMentions
 	"I build a shared URL for querying last 100 mentions or tweets for a particular user.
 	Second parameter should be only 'tweets' or 'mentions', dateString, if present, should be YYYY-MM-DD."
-	| commonQueryParameters |
+	| commonQueryParameters userFields |
-	commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username,name,profile_image_url&max_results=100'.
+	userFields := 'user.fields=username,name,description,profile_image_url'.
+	commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&', userFields, '&max_results=100'.
 	^ self usersBaseEndPoint, (self userIDFrom: username), '/', tweetsOrMentions, commonQueryParameters 

Datanalitica.package/TwitterAPI.class/instance/usersGroupMentioning..st

@@ -0,0 +1,5 @@
+accessing
+usersGroupMentioning: userName
+	^ TwitterUsersGroup new
+		users: (self usersMentioning: userName);
+		title: 'Users mentioning @', userName

Datanalitica.package/TwitterAPIResponse.class/instance/messagesAuthors.st

@@ -1,6 +1,12 @@
 accessing
 messagesAuthors
+	| groupedTweets |
 	self includes at: 'users' ifAbsent: [ ^ nil ].
-	^ (self includes at: 'users') collect: [:userDict |
+	groupedTweets := self data groupedBy: [:each | each at: 'author_id' ].
-		TwitterUser new fromDictionary: userDict
+	^ (self includes at: 'users') collect: [:userDict |  | user |
+		user := TwitterUser new fromDictionary: userDict.
+		(groupedTweets at: (user id)) do: [:tweetDict | 
+			user tweets add: (Tweet new fromDictionary: tweetDict) 
+		].
+		user.
 	  ]

Datanalitica.package/TwitterUser.class/instance/description.st

@@ -0,0 +1,3 @@
+accessing
+description
+	^ description

Datanalitica.package/TwitterUser.class/instance/fromDictionary..st

@@ -4,3 +4,4 @@ fromDictionary: userDict
 	name := userDict at: 'name'.
 	userName := userDict at: 'username'.
 	profileImageUrl := userDict at: 'profile_image_url'.
+	description := userDict at: 'description'.

Datanalitica.package/TwitterUser.class/instance/gtViewContactDetailsOn..st

@@ -9,6 +9,7 @@ gtViewContactDetailsOn: aView
 			details := String streamContents: [:aStream |
 				aStream nextPutAll: self name.
 				aStream cr.
+				aStream nextPutAll: self description.
 				].
 			
 			container := BlElement new

Datanalitica.package/TwitterUser.class/instance/id.st

@@ -0,0 +1,3 @@
+accessing
+id
+	^ id

Datanalitica.package/TwitterUser.class/instance/metrics..st

@@ -0,0 +1,3 @@
+accessing
+metrics: aDictionary
+	metrics := aDictionary

Datanalitica.package/TwitterUser.class/instance/metrics.st

@@ -0,0 +1,3 @@
+accessing
+metrics
+	^ metrics ifNil: [ metrics := Dictionary new]

Datanalitica.package/TwitterUser.class/instance/tweets..st

@@ -0,0 +1,3 @@
+accessing
+tweets: aTweetsCollection
+	tweets := aTweetsCollection

Datanalitica.package/TwitterUser.class/instance/tweets.st

@@ -0,0 +1,3 @@
+accessing
+tweets
+	^ tweets ifNil: [ tweets := OrderedCollection new]

Datanalitica.package/TwitterUser.class/properties.json

@@ -9,7 +9,10 @@
 		"id",
 		"name",
 		"userName",
-		"profileImageUrl"
+		"profileImageUrl",
+		"description",
+		"metrics",
+		"tweets"
 	],
 	"name" : "TwitterUser",
 	"type" : "normal"

Datanalitica.package/TwitterUsersGroup.class/instance/gtTwitterUsersGroupOn..st

@@ -0,0 +1,13 @@
+accessing
+gtTwitterUsersGroupOn: aView
+	<gtView>
+	^ aView columnedList
+		title: self title  translated;
+		priority: 5;
+		items: [ self users ];
+		column: 'Imagen' 
+			icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ]
+			width: 75;
+		column: 'User Name' text: [ :aTwitterUser | '@', aTwitterUser userName ];
+		column: 'Name' text: [ :aTwitterUser | aTwitterUser name ];
+		column: 'Mentions' text: [ :aTwitterUser | aTwitterUser tweets size asString ]

Datanalitica.package/TwitterUsersGroup.class/instance/gtUsersMentioningOn..st

@@ -1,12 +0,0 @@
-accessing
-gtUsersMentioningOn: aView
-	<gtView>
-	^ aView columnedList
-		title: self title  translated;
-		priority: 5;
-		items: [ self users ];
-		column: 'Imagen' 
-			icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ]
-			width: 75;
-		column: 'User Name' text: [ :aTwitterUser | aTwitterUser userName ];
-		column: 'Name' text: [ :aTwitterUser | aTwitterUser name ]