17 lines
885 B
Smalltalk
17 lines
885 B
Smalltalk
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} |