Initial Tweet object to start querying.

Datanalitica.package/Tweet.class/instance/created.st

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

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

@@ -0,0 +1,7 @@
+accessing
+fromDictionary: aDictionary
+	created := (aDictionary at: 'created_at') asDateAndTime.
+	text := aDictionary at: 'text'.
+	id := aDictionary at: 'id'.
+	authorId := aDictionary at: 'author_id'.
+	^ self

Datanalitica.package/Tweet.class/instance/mentions..st

@@ -0,0 +1,3 @@
+queries
+mentions: aWord
+	^ self text includesSubstring:  aWord

Datanalitica.package/Tweet.class/instance/printOn..st

@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: '( ',self text ,' )'

Datanalitica.package/Tweet.class/instance/text.st

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

Datanalitica.package/Tweet.class/instance/words.st

@@ -0,0 +1,3 @@
+utilities
+words
+	^ self text splitOn: Character space

Datanalitica.package/Tweet.class/instance/wordsInLowercase.st

@@ -0,0 +1,3 @@
+accessing
+wordsInLowercase
+	^ self words collect: [:word | word asLowercase ]

Datanalitica.package/Tweet.class/properties.json

@@ -0,0 +1,16 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Datanalitica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"created",
+		"text",
+		"id",
+		"authorId"
+	],
+	"name" : "Tweet",
+	"type" : "normal"
+}

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

@@ -1,8 +0,0 @@
-accessing
-userTweetsFor: username
-	| rawResponse queryURL parameters |
-	"The following query gets the last 100 tweets, that is the maximun allowed for a particular user without pagination:"
-	parameters := '?tweet.fields=created_at&expansions=author_id&user.fields=created_at&max_results=100'.
-	queryURL := self usersBaseEndPoint, (self userIDFrom: username), '/tweets', parameters. 
-	rawResponse := self rawResponseForURL:queryURL.  
-	^ (STONJSON fromString: rawResponse)

Datanalitica.package/TwitterAPI.class/instance/userTweetsFrom.since.until..st

@@ -13,6 +13,8 @@ userTweetsFrom: username since: startDateString until: endDateString
 			'&', untilDate, 
 			'&', nextToken.
 		response := STONJSON fromString: (self rawResponseForURL: queryUrl).
-		messages addAll: (response at: 'data').
+		(response at: 'data') do: [:tweetData | 
+			messages add: (Tweet new fromDictionary: tweetData) 
+		].
 		nextToken := 'pagination_token=',((response at: 'meta') at: 'next_token' ifAbsent: [ 'stop' ])].
 ^ messages.