diff --git a/Socialmetrica.package/NitterUser.class/instance/wordcloudData.st b/Socialmetrica.package/NitterUser.class/instance/wordcloudData.st new file mode 100644 index 0000000..9e144f1 --- /dev/null +++ b/Socialmetrica.package/NitterUser.class/instance/wordcloudData.st @@ -0,0 +1,17 @@ +accessing +wordcloudData + + | stopwords stopwordsCapitalized occurrencesWords wordAndValue | + stopwords := (TweetsCollection dataStore / 'commons' / 'stopwords-es.txt') contents splitOn: Character lf. + stopwordsCapitalized := stopwords collect: [:each | each first asString asUppercase, each allButFirst asLowercase ]. + occurrencesWords := ((((self writeWordsFile contents) splitOn: ' ') asBag asDictionary) + associations asSortedCollection: [:x :y | x value > y value]) asOrderedDictionary. + occurrencesWords removeKeys: stopwords. + occurrencesWords removeKeys: stopwordsCapitalized. + occurrencesWords removeKey: ''. + wordAndValue := OrderedCollection new. + occurrencesWords keysAndValuesDo: [ :k :v | + wordAndValue add: ('{name:', ($' asString), k, ($' asString), ',value:', v asString, '}') +]. + ^ {'[', ((',' join: wordAndValue) copyWithout: Character lf), ']'. + occurrencesWords} \ No newline at end of file