Initial API exploration with default max outputs (100 messages by query), before implementing pagination.

Datanalitica.package/.filetree

@@ -0,0 +1,5 @@
+{
+	"separateMethodMetaAndSource" : false,
+	"noMethodMetaData" : true,
+	"useCypressPropertiesFile" : true
+}

Datanalitica.package/TwitterAPI.class/class/keys.st

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

Datanalitica.package/TwitterAPI.class/class/loadKeys.st

@@ -0,0 +1,4 @@
+accessing
+loadKeys
+	keys := STONJSON fromString: FileLocator home / '.config/Datanalitica/twitter-api-keys.json' contents.
+	^ self keys

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

@@ -0,0 +1,3 @@
+accessing
+bearerKey
+	self keys at: 'Bearer Token'

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

@@ -0,0 +1,3 @@
+accessing
+bearerToken
+	^ self keys at: 'Bearer Token'

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

@@ -0,0 +1,3 @@
+accessing
+defaultQueryParameters
+	^ '?tweet.fields=created_at&expansions=author_id&user.fields=created_at&max_results=100'

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

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

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

@@ -0,0 +1,4 @@
+accessing
+loadKeys
+	keys := self class loadKeys.
+	^ keys

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

@@ -0,0 +1,6 @@
+accessing
+rawResponseForURL: anUrl
+	^ ZnClient new
+		headerAt: 'Authorization' put: 'Bearer ', self bearerToken;
+		url: anUrl;
+		get.

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

@@ -0,0 +1,5 @@
+queries
+userIDFrom: username
+	| rawResponse |
+	rawResponse := self rawResponseForURL: self usersBaseEndPoint, 'by/username/', username.
+	^ (STONJSON fromString: rawResponse) at: 'data' at: 'id'

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

@@ -0,0 +1,7 @@
+accessing
+userMentionsFor: username
+	| rawResponse queryURL parameters |
+	"The following query gets the last tweets, that is the maximun allowed for a particular user without pagination:"
+	queryURL := self usersBaseEndPoint, (self userIDFrom: username), '/mentions', self defaultQueryParameters.
+	rawResponse := self rawResponseForURL:queryURL.  
+	^ (STONJSON fromString: rawResponse)

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

@@ -0,0 +1,8 @@
+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..st

@@ -0,0 +1,8 @@
+accessing
+userTweetsFrom: 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/usersBaseEndPoint.st

@@ -0,0 +1,3 @@
+utilities api
+usersBaseEndPoint
+	^ 'https://api.twitter.com/2/users/'

Datanalitica.package/TwitterAPI.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Datanalitica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [
+		"keys"
+	],
+	"instvars" : [ ],
+	"name" : "TwitterAPI",
+	"type" : "normal"
+}

Datanalitica.package/monticello.meta/categories.st

@@ -0,0 +1 @@
+SystemOrganization addCategory: #Datanalitica!

Datanalitica.package/monticello.meta/package

@@ -0,0 +1 @@
+(name 'Datanalitica')

Datanalitica.package/properties.json

@@ -0,0 +1 @@
+{ }