Now external word cloud installs its common files and loads required data.
This commit is contained in:
parent
986f4a83bc
commit
2de7cf1d11
@ -0,0 +1,4 @@
|
||||
accessing
|
||||
areCommonFilesInstalled
|
||||
"Returns true if common files are in the proper location, and false elsewhere."
|
||||
^ ((TweetsCollection dataStore / 'commons') children collect: [ :file | file basename ] ) includesAll: self class commonFiles keys
|
@ -2,6 +2,8 @@ accessing
|
||||
externalWordCloud
|
||||
|
||||
| text outputFile |
|
||||
self areCommonFilesInstalled
|
||||
ifFalse: [ self installExternalWordCloudCommons ].
|
||||
self writeWordsFile.
|
||||
outputFile := (self folder / 'nube.png') fullName.
|
||||
text := (self folder / 'words', 'txt') fullName.
|
||||
|
@ -1,6 +1,6 @@
|
||||
accessing
|
||||
tweets
|
||||
self messages ifNil: [ ^ nil ].
|
||||
self messages messages ifEmpty: [ self getMessages ].
|
||||
^ TweetsCollection new
|
||||
messages: (self messages messages select: [ :each | each authorId = self id ]);
|
||||
yourself
|
@ -0,0 +1,6 @@
|
||||
accessing
|
||||
commonFiles
|
||||
"Files used by all profiles in data visualization and other tasks."
|
||||
^ {'stopwords-es.txt' -> 'https://mutabit.com/repos.fossil/mutabit/raw?name=wiki/commons/stopwords-es.txt&ci=tip'.
|
||||
'nube-mascara.jpg' -> 'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/nube-mascara.jpg'
|
||||
} asDictionary
|
Loading…
Reference in New Issue
Block a user